Помогите написать программу (10) в Turbo Pascal

Question

Составить блок-схему алгоритма и программу для решения задачи: 
проверить, является ли введенное с клавиатуры целое число одновременно положительным и четным

Н К · Accepted Answer

Program lol; 
var N; 
begin 
readln(N); 
if (Nmod2=0) and (N>0) then 
writeln('true') 
else writeln('false') 
end.

Maslo Norki · Answer

var p:integer; begin readln(p); writeln((a>0)and not odd(p)); readln end.