Сформируйте и выведите на экран массив из девяти элементов, каждые три последомательных элемента которого составлены по следующему правилу. 1й равен квадрату текущего индекса, увеличенному на 5, 2й равен целой части квадратного корня из предыдущего элемента 3й равен целой части от деления двух предыдущих элементов

// PascalABC.NET 3.2

begin
  var a:array[1..9] of integer;
  var i:=1;
  while i<=7 do begin
    a[i]:=i*i+5;
    a[i+1]:=Trunc(sqrt(a[i]));
    a[i+2]:=a[i] div a[i+1];
    i:=i+3
    end;
  for var j:=1 to 9 do Write(a[j],' ');
  Writeln
end.

Результат
6 2 3 21 4 5 54 7 7