Сложить 111+111 в двоичной системе и 11101001+10011101

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

1) долгая бумага 2) потверждает файл или папку