swf: Здравствуйте.
Во-первых, зачем вы печатаете переменную cikl? Видимо, нужно было WriteLn(kolvo).
Во-вторых, попробуйте запустить свою функцию F не в цикле, а отдельно с любым чётным аргументом, например, 4.
Что у вас происходит.
4 - чётное, выполняется условие if ((n mod 2) = 0) и F := n + 2 * F(n + 2)
Т.е. происходит новый вызов F(6). 6 - тоже чётное.
F(6) вызывает F(8), F(8) вызывает F(10) и т. д., пока не произойдёт переполнение стека.

https://forum.sources.ru/index.php?showtopic=421221&view=findpost&p=3845149