var i,n,k,t,d:longint;
begin
readln(n,k);
t:=0;
for i := 1 to n do
if (n mod i = 0) and (i mod k = 0) then
                   begin
                      t := t + i;
                      inc(d);
                   end;
writeln('Co ',d,' so chia het cho ',k);
writeln('Tong cac uoc chia het cho ',k,' la: ',t);
readln;
end.

uses crt;
var n,i,k,cnt:longint;
    sum:qword;
begin
clrscr;
    read(n,k);
    for i:=1 to n do
        if(n mod i = 0) and (i mod k = 0) then
            begin
                inc(cnt);
                inc(sum, i);
            end;
    writeln(cnt,' ',sum);
readln; readln;
end.