2.вычислить y={3,если x-1> / ,4,если x-1< 0 ! : )

Если я правильно понял условие: y=3 при x-1>0 и y=4 при x-1<0 (при этом не сказано, что делать при x-1=0), то решение будет выглядеть так (если требуется написать программу на паскале):

Var x,y:integer;
Begin
 write('x=);
 readln(x);
 if (x-1)>0 then y:=3;
 if (x-1)<0 then y:=4;
 writeln('y=',y);
End.

Но я бы посоветовал изменить строку if (x-1)>0 на if (x-1)>=0, иначе при (x-1)=0 программа будет работать некорректно.