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

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