НАДО ЗДЕЛАТЬ В ПАСКАЛЬ60БАЛЛОВ ФОТО=======>

Question

НАДО ЗДЕЛАТЬ В ПАСКАЛЬ60БАЛЛОВ ФОТО=======>

---

Answer 1

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);</strong>

end.