яким буде значення змінної після завершення програми k:=1;a:=100; while a>10 do begin a:=a/2; k:=k+1; end