Помогите срочно) Найти нужно F(13)

1. Наличие ошибок в синтаксисе. Например присутствие ";" перед else. 2. Вы используете рекурсивную функцию, а описываете ее как процедуру ... Вариант решения: var   a: integer; function F(n:integer):integer; begin   write(n,' ');   if n<>1 then     if n mod 2=0 then       f(n+1)     else       f(n div 2); end; begin   readln(a);   writeln(F(a)); end. Для F(13) получите: 13 6 7 3 1 0