program Ampel;

Type
AutoAmpel = (Rot, Gruen, Gelb, Rotgelb);
FussAmpel = (FRot, FGruen);


const
  sAuto : array [Rot .. Rotgelb] of string = ('Rot','Gruen','Gelb','RotGelb');
  sFuss : array [FRot .. FGruen] of string = ('Rot','Gruen');

var
A : AutoAmpel;
F : FussAmpel;
Z : integer;

Begin
  z := 1;
  repeat
    case z of
      1 : Begin A :=Gruen; F := FRot; end;
      2 : begin A := Gelb; F := FRot; end;
      3 : Begin A := Rot; F := FGruen; end;
      4 : begin A :=Rotgelb; F:= FRot; end;
    end;
    z := z+1;
    write ('Die Autoampel ist: ');
    write (sAuto[A]);
    write (' Die Fussgaengerampel ist: ');
    writeln (sFuss[F]);
    readln;
  until z > 4;

end.