program lab;
const n=4;m=4;
var a:array[1..n,1..m] of integer;
s,q,t,i,j:integer;
label 1;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
   write('Znachenie ',i,' marshruta na ',j,' ostanovke...');
   readln(a[i,j]);
   end;
  end;
 for i:=1 to m do begin
 t:=0;
 s:=0;
 repeat
 t:=t+1;
 if a[t,i]=0 then s:=s+1;
 until t>n;
 if s=n then writeln('Na ',i,' ostanovke nikto ne vstretitsya') else
 begin
  for j:=1 to n do begin
  if a[j,i]=1 then begin
  for q:=1 to n do begin
  if (q<>j) and (a[q,i]=1) then
  writeln('Marshruti ',q,' i ',j,' vstretyatsya na ', i ,' ostanovke');
  end;
 goto 1;
 end;
end;
1:
end;
end;
end.