var
  x, s: integer;
  k: real ;
begin
  readln(x);
  if (x > 99) and (x < 1000) then
    while x > 0 do
    begin
      s := s + x mod 10;
      x := x div 10;
    end;
  k := s / 2;
  if s mod 2 = 0 then
    writeln(k)
  else
    writeln(s * 2);
end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
  else Writeln(2*n)
end.

Пример
n= 319
638