Question

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

Answer 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.