У3-х значного числа определить позицию чётные цифр. через !

Var n: integer;
begin
write('Число = ');
readln(n);
write('Позиции четных цифр: ');
if not Odd(n div 100) then write(' 1 ');
if not Odd(n div 10 mod 10) then write(' 2 ');
if not Odd(n mod 10) then write(' 3 ');
end.

Пример:
Число = 834
Позиции четных цифр:  1  3