Дан массив на 9 элементов. первый элемент равен квадрату текущего индекса, увеличенному на 5. второй элемент равен целой части квадратного корня из предыдущего элемента. третий элемент равен сумме двух предыдущих элементов

Program n1;
const n=9;
var a: array[1..n] of integer;
var i:integer;
begin
i:=1;
while i<9 do
begin
a[i]:=i*i+5;
a[i+1]:=trunc(sqrt(a[i]));
a[i+2]:=a[i]+a[i+1];
i:=i+3;
end;
for i:=1 to n do write(a[i],' ');
end.