НАДО ЗДЕЛАТЬ В ПАСКАЛЬ

60БАЛЛОВ ФОТО=======>

var x:integer = 0;

begin

 write('Задайте значение X: ');

 readln(x);

 if x>0 then writeln('y = ',2*x-5);

 if x=0 then writeln('y = 0');

 if x<0 then writeln('y = ', 3*abs(x)-1);

end.