Даны два целых числа а и в( а больше в) . найти сумму квадратов всех целых чисел от а до в включительно

Var
   a,b,i,c: integer;
Begin
  Write('Введите А ');
  Readln(a);
  Write('Введите B ');
  Readln(b);
  for i:= 1 to (b-a+1) do Begin
    c:=c+a*a;
    a:=a+1;
 End;
End.