логической переменной p присвоить значение true если введенное вами число является четным и false в противном случае. Вывести значение переменной p на экран.
В Паскаль

Program n_1;

var x:integer; p:boolean;

begin

   readln(x);

   if x mod 2 = 0 then p:=true else p:=false;

   writeln(p);

end.