program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;


type mat = array [1..100,1..100] of integer;
var f,g:text;
a: mat;
i,j,m,n,x: integer;

Procedure Nom(a:mat; m,n:integer);
begin
Writeln(G,'Номера столбцов: ');
writeln('Sosatb: ');
For i:=1 to n do
  begin
  x:=0;
  For j:=1 to m-1 do
     begin
     If a[j,i]<a[j+1,i] then inc(x);
     end;
  If x=m-1 then
  begin
  write(g,i,' ');
  writeln(i,'');
  end;


  end;
end;

begin
   assign(f,'input.txt');
   assign(g,'output.txt');
   reset(f);
   rewrite(g);
While not eof (f) do
begin
inc(m); n:=0;
   while not eoln(f) do
   begin
   inc(n);
   read(f,a[m,n]);
   end;
readln(f);
end;
{--------------------}
Nom(a,m,n);
{--------------------}
close(f);
close(g);
Readln;
end.