Question

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

Answer 1

Var a: integer;

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