Squares form a to b

var a,b,i,s:integer;
begin
write('Введите диапазон: ');
read(a); readln(b);
s:=0;
while a<=b do begin
i:=a;
s:=s+i*i;
a:=a+1;
end;
writeln(s);
end.