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.
Если я всё правильно понял, то выходит, что первая строчка, к примеру, 33333, а вторая 55555.
33₄ = 3×4+3 = 15; 21₇ = 2×7+1 = 15 - верно
33₈ = 3×8+3 = 27; 21₄ = 2×4+1 = 9 - неверно