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

Program exemple9a ;

Uses crt ;

Var a, b, c : Real ;

Procedure Maths ;
Begin
     a := a + 10 ;
     b := sqrt(a) ;
     c := sin(b) ;
End ;

BEGIN
     ClrScr ;
     Write('Entrez un nombre :') ;
     ReadLn(a) ;
     Repeat
          Maths ;
          WriteLn(c) ;
     Until KeyPressed ;
END.