function Fibonacci(X: Integer): Integer;
begin
  if X < 2 then
    Exit(X);
  Result := Fibonacci(X - 1) +
    Fibonacci(X - 2);
end;

var
  F10: Integer;
begin
  F10 := Fibonacci(10);
  //f10 is 55

  WriteLn('f10 is ', F10);
end.