Pascal . введено трёхзначное число.если сумма его цифр нечетна, но увеличить чисто вдвое

Var a,one,dec,hun:integer;
begin
  writeln('Введите число');
  readln(a);
  one:=a mod 10; dec:=(a mod 100)div 10; hun:=a div 100;
    if (one+dec+hun)mod 2 <> 0 then a:=a*2;
  writeln('ответ: ',a);
  readln
end.