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

Var a: integer;

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