prgram ct;
uses crt;
var N,K,S,D:integer;
begin clrscr;
write('Nhap hai so N, K: '); readln(N,K);
S:=0;
for i:=1 to N do
if (N mod i=0) and (i mod K=0) then
begin
inc(D);
S:=S+i;
end;
writeln(N,' co ',D,' uoc chia het cho ',K,'. Tong la: ',S);
readln;
end.
Học tốt!