Код программы:
program learning;
var a, c: Integer;
begin
c:= 0;
readln(a);
while(a mod 2 = 0)
do begin
a:= a mod 2;
c:= c+1;
end;
writeln(c);
end.
