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

На паскале:program Project;var  n: integer;begin  Readln(n);  if (n mod 2)=0 then   Writeln('Да')  else   Writeln('Нет')end.