Если хотя бы два числа из трех введенных чисел положительных то уменьшить каждое нечетное число на 1 иначе найти сумму всех чисел
​

program Number3;

var

 A: array [1..3] of Integer;             // массив для трех чисел

 i, c, s: Integer;

begin

 WriteLn ('Введите три числа: ');

 Read (A [1], A [2], A [3]);             // Ввод трех чисел с клавиатуры

 c := 0;

 for i := Low (A) to High (A) do begin   // подсчет количества положительных чисел

   if A [i] > 0 then

     c := c + 1;

 end;

 if c >= 2 then begin                    // если положительных хотя бы 2, то

   WriteLn ('Новые значения чисел: ');

   for i := Low (A) to High (A) do begin

     if (A [i] mod 2) > 0 then           // увеличиваем нечетные на 1

       A [i] := A [i] + 1;

     Write (A [i], ' ');                 // выводим их на дисплей

   end;

 end else begin

   s := 0;

   for i := Low (A) to High (A) do       // находим сумму

     s := s + A [i];

   WriteLn ('Сумма всех чисел = ', s);   // выводим сумму на дисплей

 end;

 ReadLn;

 ReadLn;

end.

Объяснение: комментарии к программе