Question

Вывести квадраты первых десяти натуральных чисел. Без функции возведения в квадрат.Паскаль
Результат

1 4 9 16 25 36 49 64 81 100

Answer 1

var

 i:integer;

begin

 for i:=1 to 10 do

   write(i*i,' ');

end.