СОСТАВИТЬ В ПАСКАЛЕ .Составьте программу вычисления суммы нечетных составных делителей

Код программы на языке PascalABC  

program raf105;

var m,sum,i: integer;

begin

write('M = ');

readln(m);

write('Нечётные составные делители кратные 5: ');

for i:=1 to m do

 if (i mod 5 = 0) and (i lt;gt; 5) and (m mod i = 0) and (i mod 2 lt;gt; 0)

   then begin sum:= sum+i; write(i,' '); end;

writeln;

writeln('Их сумма: ',sum);

end.

Итог работы программы              

M = 10000

Нечётные составные делители кратные пяти: 25 125 625

Их сумма: 775