Написать программу выводящую ** экран таблицу квадратов чисел от 1 до 20

Question

Написать программу выводящую на экран таблицу квадратов чисел от 1 до 20

Answer 1

Var i : Integer;
Begin
  For i:=1 to 20 do Writeln(i,'^2 = ',sqr(i));
end.