4-ре бита так как 2 в 4 степени 16 то 16 бит
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525
Ответ:
<em>А</em>
<em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em>
Тетрадь какого автора? Уточните задание.