Вопрос Помогите отредактировать программу на Паскале

[fantasiz]

Procedure F(n: integer);
begin
n:=1;
if n < 8 then
begin
F(n + 3);
write;
F(2 * n);
end;
end;

 

[айэм]

с комментариев поорал. В программе одно лишнее присваивание было, я его исправил procedure F(n: integer); begin if n < 8 then begin F(n+3); write; F(2*n) end; end; begin F(4); end.

 

[Good_hash^^]

в конце end.

 

[ExTaZy]

Так это не программа, а процедура, к тому же бессмысленная.

 

[Арик]

А? я так понял это рекурсия. но внимание вопрос, а когда она закончиться то должна? каждый раз каждая рекурсия приравнивает n к 1 и больше 7, чтобы выйти из нее, она стать не может. а еще перед begin точка с запятой не ставится

 

[spar_t-a]

последний оператор заканчивается точкой end.