Question

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

Answer 1

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.

Answer 2

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.