nhập n tìm tất cả các ước của n đếm xem n có bao nhiêu ước đưa ra các ước nguyên 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.