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

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.

Program n1; var x,y: real; begin readln(x); if x>0 then y:=x-2 else if x=0 then y:=5*x+10; writeln(y); end.