Задача выполняется в Паскале! Даны два целых числа A и B (A < B). Найти сумму квадратов...

Question

Задача выполняется в Паскале! Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно. Помогите плииз.

Answer 1

var
  i, a, b: integer;
  k: Int64;

begin
  readln(a, b);
  for i := a to b do
    k += sqr(i);
  writeln(k); 
end.