Напишите программу паскаль
var
x, y: real;
begin
Read(x);
if x < 0 then
y := x + 5
else
y := x * x + 1;
Write(y)
end.
