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

Ответ:

1)

Var x:integer;

Begin

Read(x);

If x <5 then write(3*x-2)

Else write (2*x+5);

End.

2)

Var x,y:integer;

Begin

Read(x,y);

If x<9 and x >-3 and y>-3 and y <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.