Question

Дано натуральное число N определить четное или не четное? PascalABC​

Answer 1

var

 N:integer;

 begin

   read(N);

    if N>0 then

   if N mod 2=0 then write('Четное')

else write('Не четное')

else write('Число не натуральное');

 end.