program kozel_tokeletes;
var
  db : integer;
  i : integer;
  oszto,osszeg : integer;
begin
  db:=0;
  for i:=1 to 1000 do
    begin
      osszeg:=0;
      for oszto:=1 to i-1 do
        if (i mod oszto)=0
          then inc(osszeg,oszto);
      if ((0.9*i <= osszeg) and (osszeg <= 1.1*i))
        then begin
          writeln(i,': ',osszeg);
          inc(db);
        end;
    end;
  writeln(db);
end.
