function fibonacci ( Pemrograman Terstruktur )

program coba1; uses crt; function fibo (n:integer) : integer; begin if n < 2 then fibo := n else fibo := fibo (n-2) + fibo (n-1); end; begin clrscr; writeln(fibo(6)); readln; end.