Написать и отладить программу, вычисляющую семь значение функции y=x^2+1, где x-задано случайным образом в интервале (-4; 7)

Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
  begin
  x:=random(-4,7);
  y:=x*x+1;
  writeln(x:3,y:5);
  end;
end.