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

Program Exemple9c ;

Uses Crt ;

Procedure Saisie ( var nom : String ) ;
Begin
     Write('Entrez votre nom : ') ;
     Readln(nom) ;
End ;

Procedure Affichage ( info : String ) ;
Begin
     Writeln('Voici votre nom : ', info) ;
End ;

Var chaine : String ;

BEGIN
     ClrScr ;
     Saisie(chaine) ;
     Affichage(chaine) ;
END.