var
x,y: real;
begin
Readln(x);
if x > 0 then y := x + 10;
if x <= 0 then y := 5 * x;
Write('y = ', y);
end.
Объяснение:
var
x,y: real;
begin
Readln(x);
if x > 0 then y := x + 10;
if x <= 0 then y := 5 * x;
Write('y = ', y);
end.
Объяснение: