написать программу на pascal. Напишите программу, выводящую ряд квадратов чисел от 1 до 10 двумя for и while

С цикла for:

var

i:integer;

begin

for i:=1 to 10 do

writeln(i*i);

end.

цикла while:

var

i:integer;

begin

i:=1;

while i<=10 do

begin

writeln(i*i);

i+=1;

end;

end.

Объяснение:

i+=1 - запись равнозначна записи i:=i+1