Ниже записана программа. Получив на вход число x, эта программа печатает два числа. Укажите набольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 6.var x, a, b : integer;

begin

readln(x);

a := 0; b := 1;

while x > 0 do begin

a := a + 1;

b := b * (x mod 6);

x := x div 6;

end;

writeln(a); write(b);end.

DIM X, L, M AS INTEGER INPUT X L = 0 M = 0 WHILE X > 0 L = L + 1 IF X MOD 2 = 0 THEN     M = M + (X MOD 10) \ 2 ENDIF X = X \ 10 WEND PRINT L PRINT M