Сумма делителей. Срочно нужно

[Lot]

Программа посчета суммы нечетных делителей, кратных 3, натурального числа M

[alex_fcsm]

Если на Паскале, то

var m,sum,i:integer;
begin
writeln('Input m');
readln(m);
sum:=0;
for i:=1 to m do
 if (m mod i=0)and(i mod 3=0)and(i mod 2=1) then sum:=sum+i;
 writeln(sum);
end.