program zadacha;

var x,y:integer;

begin

write('Значение x=');

readln(x);

if x>0 then  

y:=2*x-5

else

if x=0 then  

y:=0

else

if x<0 then  

y:=3*x-1;

writeln('Значение функции y=',y);

end.