Question

Решить в паскале y=x*x+1

Answer 1

var x: integer;
begin
x:=readln(x);
Writeln('y = ', x*x+1);
end.