Привет, помогите пожалуйста решить еще задачки) 1) дано натуральное…

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.