Написать программу нахождения нечетного из 2-х чисел

Var
  a, b: integer;
begin
  readln(a, b);
  if a mod 2 = 1 then
    writeln(a, ' нечетное ')
  else writeln(b, ' нечетное');
end.