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

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.