Составьте программу, которая определяет, является ли введенное целое число нечетным, и выводит на экран соответствующее сообщение:《Да》 либо 《Нет》.
язык Pascal?
Var a: integer; begin write('Vvedite chislo: '); readln(a); if (a mod 2) = 1 then write('Da') else write('Net'); end.