Решить еще 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;
begin
Writeln('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);
readln
end.

2)

Program n1;
Uses CRT;
Var k,n,i: integer;
begin
Writeln('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');
readln
end.

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

Program n1;
Uses CRT;
Var k,n,i,j,a: integer; s: real; p: longint;
begin
Writeln('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);
readln
end.