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

Question

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

Comments

помоги ещё решить

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.