Данил дорохов для тебя пишу

var a : array[1..3] of integer;
i, indmineven, k : integer;
begin
repeat
writeln('введите три цифры, не менее одной чётной и хотя одну - не равную нулю');
readln(a[1],a[2],a[3]);
until ((a[1]< > 0) or (a[2]< > 0) or (a[3]< > 0))
and not (odd(a[1]) and odd(a[2]) and odd(
and (a[1] in [0..9]) and (a[2] in [0..9]) and (a[3] in [0..9]);

indmineven : = -1;
for i: =1 to 3 do
if not odd(a[i]) then begin
if indmineven< 0 then indmineven : = i
else
if a[i] end;
if indmineven < > 3 then begin
k : = a[indmineven];
a[indmineven] : = a[3];
a[3] : = k
end;
if a[1] then writeln(a[2],a[1],a[3])
else writeln(a[1],a[2],a[3]);
end.

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.