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

Program zadacha;vara:integer;g:boolean;beginread(a);if g=(odd(a)) thenwrite('Нет')elsewrite('Да');end.

var a: integer;

begin

  readln(a);

  if a mod 2=1 then writeln('Да')

  else writeln('Нет');

end.