с комментариев поорал. В программе одно лишнее присваивание было, я его исправил procedure F(n: integer); begin if n < 8 then begin F(n+3); write; F(2*n) end; end; begin F(4); end.
А? я так понял это рекурсия. но внимание вопрос, а когда она закончиться то должна? каждый раз каждая рекурсия приравнивает n к 1 и больше 7, чтобы выйти из нее, она стать не может. а еще перед begin точка с запятой не ставится