Question

SOS (pascal) создать программу, которая выводит на форму таблицу значений функции y=x^2+1 для x равным о 1,2....20

Answer 1

Может быть, достаточно напечатать значения в окно вывода? (как на картинке)
Это можно вывести просто:

var
  x: integer;

begin
  writeln(' x y=x^2+1');
  for x := 1 to 20 do
  begin
  if x<10 then
  write(' ');
    writeln(x, ' ', x ** 2 + 1);
  end;
end.