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.
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.