Составьте программу вычисления первых десяти членов последовательности, заданной формулой n-го члена: x(n)=n^2+5

Program test;
var i,n:integer;
x: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
x[i]:=sqr(i)+5;
writeln('X[',i,'] = ',x[i]);
end;
end.