var 
i, j, count, min, sum: longint;
s: string;
begin
    count := 0;
    min := 300000;
    for i := 123456 to 234567 do begin
        s := inttostr(i);
        sum := 0;
        for j := 1 to 6 do sum := sum + strtoint(s[j]);
        if i mod sum = 0 then begin
            count := count + 1;
            if i < min then min := i;
        end;
    end;
    writeln(count, min);
end.