Найти сумму квадратов всех чисел, расположенные между A и B — Pascal(Паскаль)

Program For9;

Var
  a, b, i: integer;
  s: longint;

Begin
  Writeln('введите A');
  readln(a);
  Writeln('введите B');
  readln(b);
  s := 0;
  For i := a to b do
    s := s + sqr(i);
  Writeln('сумма=', s);

end.