Пожалуйста, очень нужно! Программа в pascal... "Написать функцию, которая реализует последовательность Фибоначчи" . Тема: Создания процедур и функций в Pascal.

function fibonach(n:integer):longint;

begin

if (n=1) or (n=2) then fibonach:=1 else fibonach:=fibonach(n-1)+fibonach(n-2);

end;

Скорее всего так -__-