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

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