Question

Написати програму, яка виводить таблицю квадратів перших десяти цілих додатніх чисел. (Паскаль)

Answer 1

var  i,n,k:integer;
begin 
writeln('i':4,'i*i':6);
for i:=1 to 10 do begin
n:= i * i;
writeln(i:4,n:5);end;
end.