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

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.