На паскаль: даны три числа. удвоить те из них, которве нечетны. осталтые оставить без изменения.

Если просят найти среднее арифметическое, то формула (a+b+c)/3.

Если не наибольшее и не наименьшее из трёх, то

if ((a < b) and (b < c)) or ((a > b) and (b > c)) then b
else if ((b < c) and (c < a)) or ((b > c) and (c > a)) then c
else a;

Предполагается, что a <> b <> c.

var
  i: integer;
  m: array [1..3] of integer;
begin
  writeln('Введите три числа: ');
  for i := 1 to 3 do
  begin
    read(m[i]);
     if odd(m[i]) then write('Число нечетно: ', m[i] * 2)
    else write('Число четно: ', m[i]);
    writeln;
  end;
end.