var A: array [1..16] of integer;
i: integer;
begin
randomize;
for i := 1 to 16 do begin
A[i] := random(100);
end;
i := 1;
repeat
write(A[i]);
write("\t");
writeln(A[i + 1]);
i := i + 2;
until i < 17;
end.
var A: array [1..16] of integer;
i: integer;
begin
randomize;
for i := 1 to 16 do begin
A[i] := random(100);
end;
i := 1;
repeat
write(A[i]);
write("\t");
writeln(A[i + 1]);
i := i + 2;
until i < 17;
end.