Помогите решить задачу с помощью 3-х циклов: 1) "для"; 2) "пока"; 3) "до"

Составить программу подсчета суммы нечетных делителей, кратных
трем, натурального числа N.

1)var i, d, c: integer;beginc:=0;readln(d);for i:=1 to d doIf (i mod 3 = 0) and (i mod 2<>0) and (d mod i = 0) then c:=c+i;writeln(c);end.2)var i, d, c: integer;begini:=0;c:=0;readln(d);while i<=d doIf (i mod 3 = 0) and (i mod 2<>0) and (d mod i = 0) then beginc:=c+i;i:=i+1;end;writeln(c);end.3)var i, d, c: integer;begini:=0;c:=0;readln(d);repeatIf (i mod 3 = 0) and (i mod 2<>0) and (d mod i = 0) then beginc:=c+i;i:=i+1;end;until i<d;writeln(c);end.