На вход программе подается натуральное число n (меньше или равно) 30000. Выведите количество делителей числа n, включая 1 и само число n — Pascal(Паскаль)

program Project2;
var n,i,r:integer;
 
begin
   r:=0;
   WriteLn('vvedi n');
   ReadLn(n);
   WriteLn;
      for i:=1 to n do
           if n mod i =0 then
            begin
             WriteLn(i,' ');
             r:=r+1;
            end;
   WriteLn('chislo deliteley=',r);
   ReadLn;
end.