Question

Составить программу, которая выводит на экран квадраты натуральных чисел от 1 до 10

Answer 1

program z1;
var i:integer;
begin
for i:= 1 to 10 do
writeln(i*i);
end;