Program P58;
 { Eroare }
type Semnal=(Rosu, Galben, Verde);
     Culoare=(Albastru, Portocaliu);
var s : Semnal;
    c : Culoare;
begin
 { ... }
 case s of
      Rosu : writeln('STOP');
    Galben : Writeln('ATENŢIE');
     Verde : writeln('START');
  Albastru : writeln('PAUZĂ');
 end;
 { ... }
end.