напишите нна паскале

var
  x,y:real;
begin
  Write('x='); Read(x);
  if x>0 then y:=x-2
  else
    if x=0 then y:=5*x+10
    else begin
      Writeln('неверное значение x');
      exit
      end;
  Writeln('y=',y)
end.