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

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.