ЛЮДИ ПОЖАЛУЙСТА ПОМОГИТЕ. НАДО СДЕЛАТЬ программу, блок схему и ручной просчет

Question

ЛЮДИ ПОЖАЛУЙСТА ПОМОГИТЕ. НАДО СДЕЛАТЬ программу, блок схему и ручной просчет

---

Answer 1

var
  n, i, j: byte;
  s: longint;

begin
  readln(n);
  for i := 1 to n do
    s := round(s + power(i, n));
  writeln(s);
end.

---