сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 500; второй равен целой части квадратного корня из предыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю,то соответствующий элемент массива делать равным 1)

uses crt;vara:array [1..9] of integer;i,c,m,n:integer;b:real;beginclrscr;randomize();c:=1;for i:=1 to 9 dobeginif i=c thenbegina[i]:=500;c:=c+3;endelsebeginif i mod 3=0 then a[i]:=trunc(i/3) else a[i]:=trunc(sqrt(a[i-1]));end;write(a[i],' ');end;readln();end.