ПАСКАЛЬ. Найти сумму квадратов всех целых чисел от —10 до в (значение в вводится с клавиатуры; в<10)

var i,B,s:integer;

begin

write('Введите число B: ');

readln (B);

for i:=10 downto B do s:=s+i*i;

writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)

end.