Задача на Паскаль:Даны три числа. удвоить те из их, которве нечетны.

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.

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

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

if ((a lt; b) and (b lt; c)) or ((a gt; b) and (b gt; c)) then b
else if ((b lt; c) and (c lt; a)) or ((b gt; c) and (c gt; a)) then c
else a;

Подразумевается, что a lt;gt; b lt;gt; c.