program z8_134;
uses crt;
const n=10;
var a,b: array[1..n,1..n] of integer;
i,j,k:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
for J:=1 to n do begin
a[i,j]:=random(30);write(a[i,j]:3);end;
writeln;end;
k:=0;
for i:=1 to n do
for J:=1 to n do
if ((i>=3) and (i<=j) and (j<=5)) or ((i>=j) and (j>=5) and (i<=9))
then if k writeln;
for i:=1 to n do begin
for J:=1 to n do begin
b[i,j]:=k; write(b[i,j],' ');end;
writeln;end;
end.