begin
  var st := LowerCase(ReadLnString('Введите цвет светофора, информацию о котором Вы хотите узнать:'));
  case st of
    'красный': WriteLn('Стой');
    'желтый', 'жёлтый': WriteLn('Внимание');
    'зеленый', 'зелёный': WriteLn('Пойдем');
  else WriteLn('Упс...ошибочка...:(');
  end;
end.