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

Uses Tang ;

Var x : Real ;

BEGIN
    Write('Entrez un angle en radian : ') ;
    ReadLn(x) ;
    WriteLn('Voici sa tangeante : ',tan(2)) ;
END.