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

program exemple32;

type jours=(dim,lun,mar,mer,jeu,ven,sam);

var  today:jours;
BEGIN
today:=mar;
today:=succ(today);
inc(today,2);
case today of
 dim:writeln('Dimanche');
 lun:writeln('Lundi');
 mar:writeln('Mardi');
 mer:writeln('Mercredi');
 jeu:writeln('Jeudi');
 ven:writeln('Vendredi');
 sam:writeln('Samedi');
else writeln('autre, ',ord(today));
end;
END.