type
dentificateur = record <liste de champs> ;
end;
identificateur : type_champ ;
identificateur1, identificateur2, ............. : type_champ ;
type
personne = record
nom:string[40];
prenom:string[50];
age:integer;
end;
voiture = record
marque : string ;
cylindree : real ;
couleur : string;
nom : string ;
prix : integer ;
end ;
une_couleur = (trefle, carreau, coeur, pique);
une_valeur = (sept, huit, ..., dame, roi, as);
carte = record
couleur : une_couleur;
valeur : une_valeur;
end;