Числа Фибоначи (Fn) определяются формулами
F0=F1=1, Fn=Fn-1+Fn-2 при n=2,3...
Определить F40
поиск в помощь, решалось неоднократно, есть материал в FAQ
ну, поискала бы по всему форуму
Вот, допустим, сразу находится: http://forum.pascal.net.ru/index.php?showtopic=9277&hl=%D4%E8%E1%EE%ED%E0%F7%F7%E8# или вотhttp://forum.pascal.net.ru/index.php?showtopic=857&hl=%F4%E8%E1%EE%ED%E0%F7%F7%E8#