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

program lol (input, output);var i, n, d, sd, s4d, kd, kn4d, k4d, kbd:integer;beginwriteln ('Введите само число и число d');read (n, d);writeln ('Делители:');I:=1;sd:=0;s4d:=0;kd:=0;kn4d:=0;k4d:=0;kbd:=0;while I <=n dobeginif n mod I = 0 thenbeginkd:=kd+1;writeln (I);sd:=sd+I;if I > d thenkbd:=kbd+1;if I mod 2 = 0 thenbegins4d:=s4d+I;k4d:=k4d+1;endelsekn4d:=kn4d+1;end;I:=I+1;end;writeln (' ');writeln ('сумма делителей ', sd);writeln ('сумма четных делителей ', s4d);writeln ('количество делителей ', kd);writeln ('количество нечетных делителей ', kn4d);writeln ('количество четных делителей ', k4d);writeln ('количество делителей болеше d ', kbd);end.