program findEvenDigitsPosition;

var
number, digit, position: integer;

begin
write('Enter a three-digit number: ');
readln(number);

position := 1;

while number <> 0 do
begin
digit := number mod 10;

if digit mod 2 = 0 then
writeln('Position of even digit ', digit, ' is ', position);
number := number div 10;
position := position + 1;

end;

end.