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