Раздели каждое число, написанное в верхней строке, на 5. Заполни таблицу. 5 6 7 8 9 10 11 12 13 14 15

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.