Question

Решите быстрее пж в паскале y=x*x+1

Answer 1

var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.