Что выведет следующая программа:

var R: real;
Begin
R := 1;
While R > 0.3 do
begin
write\(R,' '\);
R := R / 2;
end;
write\('\#'\);
End.

• 1 0.5 #
• Программа выдаст ошибку
• Ничего не выведет
• 1 0.5
• #