name a;

uses crt;

var n, i, j, c: integer;

a: array [1..100]

begin

clrscr; readln (n);

for i=2 to n do

begin

a[i]=i;

if n mod a[i]=0 then for j=2 to a[i] do if a[i] mod j=0 then c=c+1

end;

write(c);readln;

end.

Chúc bạn thi tốt

uses crt;
var n,i,j,dem:longint; d:text;
function nt(a:longint):boolean;
var i:longint;
   begin
      i:=2;
      while (a>1)and(a mod i<>0) do inc(i);
      nt:=i=a;
   end;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,n);
   close(d);
   assign(d,'output.pas');rewrite(d);
      write(d,'Cac uoc cua ',n,' la: ');
      for i:=1 to n do if n mod i=0 then begin write(d,i,';'); inc(Dem); end; writeln(d);
      write(d,'So uoc cua ',n,' la: ',dem); writeln(d);
      write(d,'Cac uoc la so nguyen to cua ',n,' la:');
      for i:=1 to n do if (n mod i=0)and(nt(i)) then write(d,i,';');
   close(d);
end.