Укажите наименьшее натуральное число, при вводе которого эта программа напечатает

сначала 2, потом – 24.

var x, a, b: longint;

begin

readln(x);

a := 0; b := 1;

while x > 0 do begin

if x mod 2 > 0 then

a := a + x mod 8

else

b := b * (x mod 8);

x := x div 8;

end;

writeln(a); write(b);

end

Массовый открытый онлайн-курс (сокр.: МООК; англ. Massive open online course, MOOC, произносится примерно, как «мук») — обучающий курс с массовым интерактивным участием c применением технологий электронного обучения и открытым доступом через Интернет[1], одна из форм дистанционного образования. В качестве дополнений к традиционным материалам учебного курса, таким как видео, чтение и домашние задания, массовые открытые онлайн-курсы дают возможность использовать интерактивные форумы пользователей, которые создавать и поддерживать сообщества студентов, преподавателей и ассистентов.

Program Sum;
Var a, b: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
WriteLn('Сумма a и b равна ', a + b);
ReadLn;
End.

Program SumRow;
Const min = 5; max = 28;
Var a, i: Integer;
Begin
a := 0;
For i := min To max Do
a := a + i;
WriteLn('Сумма ряда равна ', a);
ReadLn;
End.

Program Digit;
Var a, b: LongInt;
c, d, i: Integer;
Begin
Write('a = ');
ReadLn(a);
b := 1;
c := 0;
While a Div b <> 0 Do
Begin
c := c + 1;
b := b * 10;
End;
While a > 0 Do
Begin
d := d + (a Mod 10);
a := a Div 10;
End;
WriteLn('Количество цифр в числе равно ', c);
WriteLn('Сумма цифр числа равна ', d);
ReadLn;
End.