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

program aspfoj;  var i, a:integer;  begin a:=1;  for i:=1 to 10 do begin writeln (a*a);  a:=i+1; end;  end.