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

Program exemple24 ;

Type chaine = string[20] ;

Var nom : chaine ;
    age : byte ;

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