Ответ:

Program abc;

var

 a: integer;

begin

 readln(a);

 if (a<0) and (a mod 2 = -1) then writeln('Число отрицательное и не четное!')

 else writeln('Число не является отрицательным и не четным!');

end.

Объяснение:

Если что-то нужно объяснить, то спрашивай