Помогите написать программу в Паскале для нахождения суммы всех делителей натуральных чисел от 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);        readlnend.