Определить есть ли среди заданных целых чисел a b c хотя бы одно нечетные

Я так понимаю, надо программу написать?
Вот пример на паскале:

...
var a, b, c: Integer;
begin
if (a mod 2 <> 0) or (b mod 2 <> 0) or (c mod 2 <> 0) then writeln("Есть")
else writeln("Нет");
end.