Вводятся 3 числа , вывести на экран нечетные числа pascal

var

a,b,c:integer;

begin

readln(a); readln(b); readln(c);

if a mod 2 lt;gt; 0 then

 Writeln('1-ое нечетное')

else if a mod 2 = 0 then  

  Writeln('Первое четное');

  if b mod 2 lt;gt; 0 then

 Writeln('2-ое нечетное')

else if b mod 2 = 0 then  

  Writeln('2-ое четное');

  if c mod 2 lt;gt; 0 then

 Writeln('Третие нечетное')

else if c mod 2 = 0 then

  Writeln('Третие четное');

end.