Найдите наибольшее число I, при вводе которого алгоритм печатает сначала 2, а потом 1.
var I, A, B, C: longint;
begin
readln(I);
A:= 0; B:= 0;
while I > 0 do begin
C:= I mod 2;
if C = 0 then A:= A + 1
else B:= B + 1;
I:= I div 12;
end;
writeln(A);
writeln(B);
end.
