Найти сумму квадратов всех целых чисел от -10 до b(b> =-10)

var
i,s,b:integer;
begin
write('Введите b: ');
readln(b);
s:=0;
for i:= -10 to b do s:=s+i*i;
writeln(s);
end.

Program summa;

 Uses crt;

 Var i, s,b:integer;

 Begin

  Write('Введите число ,b=');

  Readln(b);

 For i:= -10 to b do

   s:=s+sqr(i);

 Writeln('Сумма квадратов = ',s);

 End.