Помогите, пожалуйста)
Составить программу, выводящую на экран таблицу квадратов натуральных чисел от 1 до n
Таблица
1 1
2 4
3 9
4 16
5 25
6 36

Фигня какая-то нерабочая!

спасибо))*

Пожалуйста))

))

Program ABC;var a: array [1..100] of integer;i,n ,k: integer;BeginWritete('N =  '); readln(n);Write('кол-во чисел: ');readln(k);Write('Результат: ');For i:=1 to k do   begin randomize;a[i]:= random(50)-25;write(a[i], '  '); inc(k);end;i:= 1; k:=0;Writeln;Write('Первые ', n, ' квадратов нат. чисел: ');repeatif a[i]>0 then begin write(sqr(a[i]), '   '); ink(k); end;i:= i+1;until k>n;end.

var   i,n:integer;beginwrite('Введите n: '); readln(n);for i:=1 to n do  writeln(i,' ',i*i);end.