Procedure MAIN:
  Local n as Long
  n = 30

  Clear
  Locate 1,1, "fibo(" & n & ")= " & fibo(n),4
  WaitKey
  

Function fibo(n as Long) as Long
  If n=0 Or n=1 Then
    Return 1
  Else
    Return fibo(n-1)+fibo(n-2)
  EndIf
  

#include <tigcclib.h>
long fibo(long n);

void _main(void)
{
  long n;
  n=30;
  ClrScr();
  char buff[30];
  sprintf(buff,"fibo(%li)=%li",n,fibo(n));
  DrawStr(1,1,buff,4);
  ngetchx();
  
}

long fibo(long n)
{
  if (n==0 || n==1)
    return 1;
  else
    return fibo(n-1)+fibo(n-2);
}