Составить программу заполнения одномерного массива, так чтобы его 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.