Написать программу, которая выводит на экран квадраты первых 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.