Требуется составить программу для суммирования первых n введенных чисел возведение результатов в n степень я не понимаю инф. 100

Program pr; uses crt; var n,i: integer; stepen, sum,a: real; begin     writeln('введите количество чисел n');     readln(n);     writeln('введите степень');     readln(stepen);     writeln();     sum: =0;       for i: =1 to n do     begin            write('введите ',i,' число: ');             readln(a);             sum: =sum+a;     end; writeln('sum = ',sum); writeln('sum^',stepen,' = ',power(sum, stepen)); readln; end.