Создать массив,каждый элемент которого равен квадрату своего номера.

Program n1;
const n=10;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do a[i]:=i*i;
for i:=1 to n do writeln(a[i]);
end.