Составить программу заполнения одномерного массива, так чтобы его i-ый элемент был равен a[i]=i*i+10 Паскаль

program zap;
var a:array [1..10000] of integer; i,n:integer;
begin 
Writeln('Введите количество элементов '); 
Readln(n); 
for i:=1 to N do 
  begin 
   a[i]:=i*i+10;
   Writeln(a[i]) 
  end;
end.