var
  f, i, j, n, d, t, p, z, sum: longint;
  sov, del: array[1..100] of integer;
  
begin
  write('Ââåäèòå ÷èñëî: ');
  readln(n);
  
  for i := 1 to n-1 do
    begin
      for j := 1 to 100 do
        del[j] := 0;
        
      d := 0;
      f := i;
      for z := 1 to f-1 do
        begin
          if f mod z = 0 then
            begin
              d := d + 1;
              del[d] := z;
            end;
        end;        
      sum := 0;
      for t := 1 to d do
        sum := sum + del[t];
        
      if sum = i then
        begin
          p := p + 1;
          sov[p] := i;
        end;
    end;
    
    for i := 1 to p do
      writeln(i,'  ',sov[i]);
end.