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

var a: integer;begin  write('Vvedite chislo: '); readln(a);  if (a mod 2) = 1 then   write('Da')  else write('Net');end.