program pag95_11;
uses crt;
var a:array[1..100,1..100]of integer;
    m,n,i,j,k:byte;
    com:boolean;

begin
clrscr;
Write('Nr linii? ');readln(m);
Write('Nr Coloane? ');readln(n);

clrscr;
for i:=1 to m do for j:=1 to n do begin
 write(i,', ',j,': ');
 readln(a[i,j]);
end;

clrscr;
for i:=1 to m do begin
 writeln;
 for j:=1 to n do write(a[i,j]:6);
end;
writeln;

write(#$D#$A+'a) In toate liniile sunt: ');
for k:=1 to n do begin
 i:=2; j:=1;
 while(i<=m)and(j<=n)do begin
  j:=1;
  while(j<=n)and(a[i,j]<>a[1,k])do inc(j);
  inc(i);
 end;
 if(i>m)and(j<=n)then Write(a[1,k]:5);
end;

write(#$D#$A+'b) In toate coloanele sunt: ');
for k:=1 to m do begin
 j:=2; i:=1;
 while(j<=n)and(i<=m)do begin
  i:=1;
  while(i<=m)and(a[i,j]<>a[k,1])do inc(i);
  inc(j);
 end;
 if(j>n)and(i<=m)then Write(a[k,1]:5);
end;

readkey
end.