function fib(n: integer): integer; var tmp: integer; begin if n=1 then result := 1 else if n=2 then result := 1 else begin tmp := fib(n-1); result := tmp + fib(n-2); end; end;
writeln(intToStr(fib(8)));
ausführen