Является ли заданное число четным и положительным

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var n:=ReadInteger('введите число');
  Writeln((n mod 2=0) and (n>0))
end.