Буду благодарен)

program zadacha;

var

x,y:real;

begin

writeln('vvedite x');

readln(x);

if x>0 then y:=-2+3*x else y:=8+x;

writeln('y=',y);

end.