2. Вычислить y={3, если x-1>/ ,4, если x-1

Если я правильно понял условие: 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 программа будет работать некорректно.