Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

ссори