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

полнейший бред...

ой, перепутал с четными нечетными

ссори

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