Question

Напишите программу паскаль

Answer 1

var

 x, y: real;

begin

 Read(x);

 if x < 0 then

   y := x + 5

 else

   y := x * x + 1;

 Write(y)

end.