Дано натуральное число:а)получить все его делители б)найти сумму его делителей в)найти сумму его четных делителей г)определить количество его нечетных делителей е)определить количество его делителей.Сколько из них четных? ж)найти количество его делителей,больших d" На ТУРБО ПАСКАЛЕ СРОЧНО!!!

var a,b,c,d,i,f,g,h,n:integer;beginwriteln('введите число');readln(a);g:=0;c:=0;d:=0;i:=0;f:=0;writeln('введите число для сравнения');readln(h);for b:=a downto 1 do beginif 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;if 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.