2.Вычислить y=3,если x-1amp;gt;/ ,4,если x-1amp;lt;0 помогите пожалуйста!!! :)

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

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

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