Program Z;
uses crt;
const N=5, M=6;
var A:array [1..N,1..M] of integer;
i,j:integer;
begin
ClrScr;
Randomize;
for i:=1 to N do
for j:=1 to M do
A[i,j]:=Random(21);
write (A[i,j]:4);
end;
writeln;
readln
end.
Program Z;
uses crt;
const N=5, M=6;
var A:array [1..N,1..M] of integer;
i,j:integer;
begin
ClrScr;
Randomize;
for i:=1 to N do
begin
for j:=1 to M do
begin
A[i,j]:=Random(21);
write (A[i,j]:4);
end;
writeln;
end;
readln
end.