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

Если на плечах есть голова, а в голове - желание, разобраться во всем можно.

Ну да

Перешел в личку.

Эх, доделал похоже на таблицу и заменил возведение в квадрат x**2 на умножение x*x. Вот только уже поздно, изменить решение уже нельзя.

Да, только два часа на исправление.

Может быть, достаточно напечатать значения в окно вывода? (как на картинке)Это можно вывести просто: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.