Ответ:

program Program1;  

var number,n:integer;

begin

   writeln ('Введи число');

   readln (number);

   n :=  abs(number) mod 2;

   if (number < 0) and (n = 0)  

   then writeln('Да')

   else writeln('Нет');

end.