привет,помогите пожалуйста решить еще задачки))))
1)дано натуральное число N>1.найти количество его делителей
2)дано натуральное число N>1.равно ли оно сумме своих делителей(включая единицу,но не себя)
3)даны числа a и n.вычислить:1/a 1/a*a 1/a*a*a ... 1/a*n
это все цикл for,зарание спасибо!

1)

Program n1;Uses CRT;Var k,n,i: integer;beginWriteln('Vvedite N');readln(n);For i:=1 to N do if n mod i=0 then k:=k+1;Writeln('Delitelei ',k,' vkluchaya 1 i ',n);readlnend.

2)

Program n1;Uses CRT;Var k,n,i: integer;beginWriteln('Vvedite N');readln(n);For i:=1 to N-1 do if n mod i=0 then k:=k+i;If k=n then writeln ('chislo ravno summe delitelei') else writeln('ne ravno');readlnend.

3) Вычислить, я так поняла, сумму всего этого?

Program n1;Uses CRT;Var k,n,i,j,a: integer; s: real; p: longint;beginWriteln('Vvedite a,N');readln(a,n);p:=1;For i:=1 to n do For j:=1 to i do p:=p*a;s:=s+1/p;writeln(s);readlnend.