Pascal: Tìm số có nhiều ước nhất trong khoảng từ 1 đến N. N là số nguyên được nhập từ bàn phím.

program uoc_so;

uses crt;

var n,i,j,ptu,d,max:integer;

begin

       clrscr;

       write(‘Nhap N: ‘);  readln(n);

       ptu:=1;   max:=1;

       for i:=2 to n do

              begin

                     d:=0;

                     for j:=1 to i do

                            if i mod j=0 then d:=d+1;

                     if d>max then

                            begin

                                   max:=d;

                                   ptu:=i;

                            end;

              end;

       write(‘So co nhieu uoc nhat tu 1 den ‘,n,’ la: ‘,ptu);

       readln;

end.