Squares from a to b repeat

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