Напишите программу которая вычисляет нечетность числа (Pascal)

Question

Напишите программу которая вычисляет нечетность числа (Pascal)

Answer 1

var

 x,y: integer;

begin

 write('Введите 2 числа через пробел: ');  

 readln(x,y);

 if (x mod 2<>0)and(y mod 2<>0)  

   then write('Да')  

     else write('Нет');

 readln;

end.