Помогите пожалуйста . Нужно решить работы № 55-57 Лучший ответ получит 50 баллов .

Question

Помогите пожалуйста .
Нужно решить работы № 55-57
Лучший ответ получит 50 баллов .

---

---

Answer 1

55.)
var
  s, i: integer;

begin
  for i := 1 to 10 do
    s := s + sqr(i);
  writeln(s)
end.

56.)
Не видно.

57.)
var
  s, i: integer;

begin
  for i := 1 to 7 do
    s := s + i*i*i;
  writeln(s)
end.