Задание
Определите, сколько символов * выведет эта процедура при вызове F\(140\):
Паскаль
procedure F\( n: integer \);
begin
write\('\*'\);
if n >= 1 then begin
write\('\*'\);
F\(n\-1\);
F\(n div 2\);
end;
end;