На первом фото номер один, на втором пример программы, желательно сделать приблизительно так же . зарание огромное .

program v8_1;

var a: array[1..9] of integer;

i: integer;

begin

randomize;

for i:=1 to 9 do

begin

if i mod 3 = 1 then

begin

write ('a[',i,'] = ');

readln (a[i])

end;

if i mod 3 = 2 then a[i]:=i*2;

if i mod 3 = 0 then a[i]:=random (10)

end;

for i:=1 to 9 do write(a[i]:3)

end.