Помогите написать программу в Паскале для нахождения суммы всех делителей натуральных чисел от 5 до 20. Очень нужно))

program z1; var s:integer;i,j:byte; begin         s:=0;         for i:=5 to 20 do begin                 for j:=1 to i do begin                         if (i mod j)=0 then begin                                 s:=s+j                         end                 end         end;         write('summa=',s);         readln end.