Сформировать массив по правилу

uses crt;
var a:array[1..9] of integer;i:integer;
begin
for i:=1 to 9 do
begin
clrscr;
if i mod 3=1 then readln(a[i]);
if i mod 3=2 then a[i]:=random(100);
if i mod 3=0 then a[i]:=a[i-1] div a[i-2];
end;
writeln('Массив:');
for i:=1 to 9 do
writeln(a[i]);
end.

uses crt;
var a:array[1..15] of integer;b:array[1..15]of integer;i,m,l:integer;
begin
writeln('первичный массив');
for i:=1 to 15 do
begin
a[i]:=random(100);
writeln(a[i]);
b[i]:=a[i]+sqr(a[i]);
if b[i]>m then begin m:=b[i];l:=i;
end;end;
writeln('полученный массив');
for i:=1 to 15 do
writeln(b[i]);
writeln('максимальный элемент = ',m,' его индекс ',l);
end.

uses crt;
const n=9;
var a:array[1..n] of integer;i:integer;
begin
clrscr;
for i:=1 to 3 do
 begin
  repeat
   write('Введите целое число, не равное 0: ');
   readln(a[3*i-2]);
  until a[3*i-2]<>0;
  repeat
   a[3*i-1]:=random(100)+1;
  until a[3*i-2] mod a[3*i-1]<>0;
  a[3*i]:=a[3*i-2] mod a[3*i-1]
 end;
writeln('Массив:');
for i:=1 to 9 do
write(a[i],' ');
end.