Помогите пожалуйста очень безотлагательно!!!!!!!!!!!

Помогите пожалуйста очень срочно!!!!!!!!!!!

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1492 от 03.07.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var w:=ReadAllText('input.txt');
  var s:='ERROR';
  case w of
  'RED':s:='NO';
  'YELLOW':s:='NO';
  'GREEN':s:='YES'
  end;
  WriteAllText('output.txt',s)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт