Дано натуральное число: а)получить все его делители б)найти сумму его делителей в)найти сумму его четных делителей г)определить количество его нечетных делителей е)определить количество его делителей.сколько из них четных? ж)найти количество его делителей,больших d" на турбо паскале !

Var a,b,c,d,i,f,g,h,n: integer; begin writeln('введите число'); readln(a); g: =0; c: =0; d: =0; i: =0; f: =0; writeln('введите число для сравнения'); readln(h); for b: =a downto 1 do begin if a mod b = 0 then writeln('его делитель ==> ',b); if a mod b = 0 then c: =b+c; if a mod b = 0 then if b mod 2 = 0 then d: =d+b; if a mod b = 0 then if b mod 2 < > 0 then i: =i+1; if a mod b = 0 then f: =f+1;   if a mod b = 0 then if b mod 2 = 0 then g: =g+1; i f a mod b = 0 then if b> h then n: =n+1;   end; writeln('сумма его делителей ==> ',c); writeln('сумма его чётных делителей ==> ',d);   writeln('количество нечётных делителей ==> ',i);   writeln('количество чётных делителей ==> ',g); writeln('количество делителей ==> ',f);   writeln('количество делителей больших b ==> ',n);   end.

Объем , цвет(возможен ) , форма (мы тоже проходили.давненько))