program ParityDegree;

var
number, count: integer;

begin
write('Enter a three-digit number: ');
readln(number);

count := 0;

if number mod 2 = 0 then
begin
count := count + 1;
number := number div 2;
while number mod 2 = 0 do
begin
count := count + 1;
number := number div 2;
end;
end;

writeln('Parity degree of the number: ', count);
end.