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

Program exemple40;
Const nom='Bill';

Procedure saisielibre(var toi:string);
begin
writeln('Entrez votre nom :');
readln(toi);
if toi='' then toi:=nom;
end;

Procedure saisiecontrainte(var toi:string);
begin
repeat
writeln('Entrez votre nom :');
readln(toi);
until toi<>'';
end;

var toi:string;
BEGIN
saisielibre(toi);
saisiecontrainte(toi);
END.