program Solution;
var x, y: integer;
begin
writeln('Введите x:');
readln(x);

y := x*x + 1;

writeln('y = ', y);
end.