Дано естественное число:а)получить все его делители б)отыскать сумму его делителей в)найти

паскаль АВС подойдёт?

да

ПОМОГИИТЕЕ плиииз!!

я в процессе

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('его делитель ==gt;',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 lt;gt; 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 bgt;h then n:=n+1; 
end;
writeln('сумма его делителей ==gt;',c);
writeln('сумма его чётных делителей ==gt;',d); 
writeln('количество нечётных делителей ==gt;',i); 
writeln('количество чётных делителей ==gt;',g);
writeln('количество делителей ==gt;',f); 
writeln('количество делителей великих b ==gt;',n); 
end.