Составить таблицу квадратов ** языке Паскаль: 1=1 2=4 3=9 ... 100=10000

Question

Составить таблицу квадратов на языке Паскаль:
1=1
2=4
3=9
...
100=10000

Answer 1

Var
i:Integer;
Begin 
for i:=1 to 100 do
 Writeln(sqr(i));
end.