Решите ПОЖАЛУЙСТА СРОЧНО 1 и 2 задание. Буду оочень признательна

Ответ:

1)

Var x:integer;

Begin

Read(x);

If x lt;5 then write(3*x-2)

Else write (2*x+5);

End.

2)

Var x,y:integer;

Begin

Read(x,y);

If xlt;9 and x gt;-3 and ygt;-3 and y lt;4 then write('принадлежит')

Else write('не принадлежит');

End.

3)

Var m,n:integer;

Begin

Read(n,m);

Case n of

1:write(m+' кг');

2:write(m+' мг');

3:write(m+' г');

4:write(m+' т');

15write(m+' ц');

End.