Составьте программу на Pascal ABC y=x2(квадрат) +3

program p1;
var
x, y: integer;
begin
  Write('Введите x: ');
  readln(x);
  y:=sqr(x)+3;
  writeln('y=' + y);
end.