Напишите, сколько звёздочек будет выведено на экран после выполнения данного алгоритма.
a := 15;
while (a>0) do
begin
writeln('*');
a := a div 2;
end;