Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
MAX (8) = 7777 (8)
7777 (8) -> X (2)
X = 111 111 111 111 (2)
Оставим только 4 единицы:
111 100 000 000 (2)
Переводим обратно в (8):
7400 (8)
Ответ: 7400