Множество с содержит элементы: {100, 200, 300, 600, 900}. множество d содержит элементы: {0, 200, 500, 700, 900}. 20 !

Использовать источники открытого огня (спички, зажигаприносить на уроки легковоспламеняющиеся вещества (лаки, краски, порох и т.п.); лки, петарды и др.); работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов; вставлять в отверстие приборов посторонние предметы; приносить и самовольно подключать какое-либо оборудование; производить самовольное переключение разъёмов оборудования; вставлять в отверстие приборов посторонние предметы; работать с электроприборами, имеющими повреждения корпуса или изоляции соединительных проводов;

var

  A: array [1..12] of integer;  //Массив, состоящий из 12 целых чисел

  i: integer;

 

begin

  for i:= 1 to 12 do   //Вводим элементы массива

  begin

    writeln('Введите А[', i, ']');

    readln(a[i]);

  end;

  write('Исходный массив:  ');

  for i:= 1 to 12 do  {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}

  begin

    write(a[i], '  ');

    if (a[i] > 0) and (a[i] mod 2 = 0) then

      a[i]:= 5;

  end;

  writeln;

  write('Измененный массив:  ');

  for i:= 1 to 12 do  //Распечатываем измененный массив

    write(a[i], '  ');

  writeln;  {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end. 

Если все правильно, отметь решение как лучшее)