какое значение переменной а будет выведено на экран оператором writeln (а)

Какое значение переменной а будет выведено на экран оператором writeln (а) в результате исполненья последующей программки?
var a, n:integer;
begin
n:=50; a:=0;
while n gt;1 do
begin
n:=n div 2;
a:=a+1;
end;
writeln (a)
End.