While5

## //PT4 while5
var n := ReadReal('Ввод:');
var cnt := 0;
while n >= 2 do
  begin
    n /= 2;
    Println(n);
    cnt += 1;
  end;
Println('счетчик к=:',cnt)