P/S: Hi vọng là hiểu cái code này nói gì chứ ngồi làm nãy giờ đấy

program bai3;
uses crt;
var dayso,daysouoc: array[1..2011] of cardinal;
var N,i,k,t,m: longint;

begin;
  clrscr;
  randomize;
  writeln('Nhap so so nguyen duong can tao ra');readln(N);
  if (N<2) or (N>2011) then writeln('Chi co the tao tu 2 den 2011 so')
                                       else begin;
  writeln('Cac so duoc tao la: ');
  for i:=1 to N do
    begin;
      dayso[i]:=random(999999)+1;
      write(dayso[i],' ');
    end;
  for i:=1 to N do
    begin;
      daysouoc[i]:=0;
      for k:=1 to dayso[i] do
        begin;
          if dayso[i] mod k =0 then daysouoc[i]:=daysouoc[i]+1;
        end;
    end;
  writeln(' ');
  writeln('Cac so sau khi da sap xep theo yeu cau la:');
  for i:=1 to N-1 do
    begin;
      for k:=i+1 to N do
        begin;
          if daysouoc[i]>daysouoc[k] then
            begin;
              t:=daysouoc[i];
              daysouoc[i]:=daysouoc[k];
              daysouoc[k]:=t;
              m:=dayso[i];
              dayso[i]:=dayso[k];
              dayso[k]:=m;
            end;
        end;
    end;
  for i:=1 to N do
    begin;
      daysouoc[i]:=dayso[i];
      write(dayso[i],' ');
    end;
  end;
  readln;
end.