Написать программу на языке Паскаля для вычисления S=1^1+2^2+3^3+...+n^n

Предыдущий
вопрос Следующий
вопрос

program CalculateSum;

var
n, i: Integer;
sum: LongInt;

begin
sum := 0;

write('Enter the value of n: ');
readln(n);

for i := 1 to n do
begin
sum := sum + Round(Power(i, i));
end;

writeln('The sum is: ', sum);
end.