Напишите ПОЖАЛУЙСТА программу нахождения нечетного числа из 2-х (с числа т.е. полностью)

Var a,b: real; s: byte; Begin Writeln (введите два числа); Readln (a,b); S:=0; If (a mod 2)=1 then writeln (a, - нечетное число) else s:=s+1; If (b mod 2)=1 then writeln (b, - нечетное число) else s:=s+1; If s=2 then writeln (оба числа четные) End.