program zadatak;
uses crt;
type
    matrica=array[1..100,1..100] of integer;

var
   a:matrica;
   n,m,b:integer;

procedure ucitaj(var a:matrica;n,m:integer);
var i,j:integer;
begin
     for i:= 1 to n do
         for j:= 1 to m do
             readln(a[i,j]);
end;

function ok(a:matrica;n,m,b:integer):boolean;
var
   i,j,s,br:integer;
   p:boolean;
begin
    br:=0;
    p:=true;
    for j:=1 to m do
    begin
         while i<=n do
         begin
    	      if a[i,j]=b then
              begin
                   p:=false;
        	   br:=br+1;
    		   i:= i+1;
    	      end;
         end;
    end;
    if br=m then p:=true;
    ok:=p;
end;

begin
     clrscr;
     writeln('Unesite n i m');
     readln(m,n);
     writeln('Unesite b');
     readln(b);
     writeln('Unesite elemente matrice');
     ucitaj(a,n,m);
     if ok(a,n,m,b) then
        writeln('1')
     else
         writeln('Ne postoji broj ',b,' u svakoj koloni matrice');
     repeat until keypressed;
end.