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