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

var x: Integer;
begin
writeln('Введите x',x);
readln(x);
writeln('y=x*x+1');
writeln('y=',x*x+1);
end.