Составьте  программу, которая определяет, является ли введенное целое число нечетным, и выводит на экран соответствующее сообщение:"Да" либо "Нет".

varx:integer;beginwrite('Введите число: ');readln(x);if x mod 2=1 then writeln('Да') else writeln('Нет');end.