Question

Дано множество натуральных чисел от 1 до 20,вывести множество квадратов элементов 
Нужно составить программу по языку Паскаль. Помогите  даю 53 балла 

Answer 1

program one;
var
i:integer;
begin
for i:=1 to 20 do
writeln(sqr(i));
end.

Answer 2

Cпасибо