program kartyaszinek;
type
  kartya_szin = (tok, makk, piros, zold);
  kartya_szin_tartomany = piros .. zold;
var
  piros_kartya : kartya_szin_tartomany;
begin
  piros_kartya := piros;
end.