Какие новые ИКТ-системы пришли на смену имеющимся в вашей образовательной организации? Какие последствия это повлекло (переобучение персонала, замену учебных материалов, изменение планирования учебного процесса и т.д.)? Какие пути вы видите для повышения готовности школы к новым ИКТ

x = input()

y = input()

if x == y and (x == 'синий' or x == 'желтый' or x == 'красный') and (y == 'красный' or y == 'синий' or y == 'желтый'):

   print(x)

elif (x == 'красный' or y == 'красный') and (x == 'синий' or y == 'синий'):

   print('фиолетовый')

elif (x == 'красный' or y == 'красный') and (x == 'желтый' or y == 'желтый'):

   print('оранжевый')

elif (x == 'синий' or y == 'синий') and (x == 'желтый' or y == 'желтый'):

   print('зеленый')

elif x != 'синий' and x != 'желтый' and x != 'красный' or y != 'красный' and y != 'синий' and y != 'желтый':

   print('ошибка цвета')

я это уже решал на stepik

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var n:=ReadInteger('Задайте число строк/столбцов массива:');
  var a:=MatrixRandom(n,n,-99,99);
  Writeln('Исходный массив');
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  Write('Кол-во нечетных элементов выше главной диагонали: ');
  var k:=0;
  for var i:=0 to n-2 do
    for var j:=i+1 to n-1 do
      if Odd(a[i,j]) then Inc(k);
  Writeln(k)
end.

Тестовое решение
Задайте число строк/столбцов массива: 6
Исходный массив
  31  27 -90 -64 -75  22
  12  11  79   6 -14  73
 -66 -52 -97 -82 -50  47
 -65  20  25  -7 -13  46
 -31  -9 -69  47  81   2
 -43 -68  95  -3 -36 -55
Кол-во нечетных элементов выше главной диагонали: 6