program v8_1;
var a: array[1..9] of integer;
i: integer;
begin
randomize;
for i:=1 to 9 do
if i mod 3 = 1 then
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)
for i:=1 to 9 do write(a[i]:3)
end.
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.