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

Program exemple30a;

Const Nmax=1;

Type materiaux=(metal,beton,verre);
     produit=Record
         nom:String[20];
         Case matiere:materiaux Of
             metal:(conductivite:Real);
             beton:(rugosite:Byte);
             verre:(opacite:Byte; incassable:boolean);
     End;
     tab=Array[1..Nmax] Of produit;

Procedure affichage(prod:produit);
Begin
With prod Do
 Begin
 writeln('Produit ',nom);
 Case matiere Of
  metal : writeln('Conductivit‚ : ',conductivite);
  beton : writeln('Rugosit‚ : ',rugosite);
  verre : Begin
          writeln('Opacit‚ : ',opacite);
          If incassable Then writeln('Incassable');
          End;
 End;
 End;
End;

Var x:tab;
    i:integer;
BEGIN
With x[1] Do
Begin
nom:='Lampouille';
matiere:=verre;
opacite:=98;
incassable:=true;
End;
For i:=1 To Nmax Do affichage(x[i]);
END.