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!

program bt;

uses crt;

var n,k,dem,s: integer;

begin 

     clrscr;

     write('hay nhap n va k!');

     readln(n,k);

     dem:=0;

     s:=0;

     for i:=1 to n do if (i mod k=0) and (n mod i=0)then

          begin

               dem:=dem+1;

               s:=s+i;

          end;

     writeln('So uoc cua n chia het cho k la:',dem);

     writeln('Tong cac uoc do la:',s);

     readln

end.