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

Program exemple9b ;

Uses Crt ;

Procedure maths ( param : Real ) ;
Begin
     WriteLn('Procédure de calcul. Veuillez patienter.') ;
     param := Sin(Sqrt(param+10)) ;
     WriteLn(param) ;
End ;

Var nombre : Real ;

BEGIN
     ClrScr ;
     Write('Entrez un nombre :') ;
     ReadLn(nombre) ;
     maths(nombre) ;
     ReadLn ;
END.