{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Unit Tangt ;

INTERFACE
Var a : Real ;
Function Tan ( a : Real ) : Real ;

IMPLEMENTATION
Function Tan ( a : Real ) : Real ;
    Begin
        Tan := Sin(a)/Cos(a) ;
    End ;

BEGIN
END.