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

Question

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

---

Answer 1

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.

Answer 2

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.