const
k = 4;
p = 6;
var
f: array [1..k, 1..p] of byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 100);
write(f[i, j]:3);
end;
writeln();
end;
//////////////////////////////////////////////////
writeln();
f[k, p] := k * p;
//////////////////////////////////////////////////
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
end.