program z106;
uses crt;
const m=5;
var a:array[1..m,1..m] of integer;
i,j,k:integer;
Begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 3 do begin
a[i,j]:=random(50);
write(a[i,j]);end;
writeln;end;
i:=1;
while i<=k do
begin
for j:=i+1 to m do
if a[j,i]=a[i,j] then shiftleft(j,n,1,a);
inc(i);end;
END.