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


Program Exemple1 ;

Var nom : String ;

BEGIN
     Write('Entrez votre nom : ') ;
     ReadLn(nom) ;
     WriteLn('Votre nom est ', nom) ;
     ReadLn ;
END.