Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно - Pascal(Паскаль)

var x,r,a,b:integer;
begin
   readln(a);
   readln(b);     
   r:=0;
   x:=a; 
        while x<=b do
         begin
          r:=r+x*x;
          x:=x+1;
         end;
   writeln(r);
end.