даны два целых числа А,В. проверить истинность высказывания "хотя бы одно из чисел А и В нечетное".
uses crt;
var a,b:integer;
c:boolean;
begin
ClrScr;
writeln ('введите число');
readln(a);
writeln ('введите число');
readln(b);
if ((a mod 2 <> 0 )) or ((b mod 2 <> 0 )) then
begin c:=true;
writeln (c);
end
else
writeln (c);
readln;
end.
мне кажется что чего то не хватает????????