Найти сумму чисел 2^2+3^3+4^4...6^6 (pascal)

Question

Найти сумму чисел 2^2+3^3+4^4...6^6 (pascal)

Answer 1

Var
   s,i : integer;
begin
 s :=0;
  for i := 2 to 6 do
  s := s + sqr(i);
 writeln (s);
end.