program chetnoe_chislo;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:integer;
begin
writeln('Vvedite chetnoe chislo');
readln(a);
if a mod 2=0 then writeln ('vvedennoe chislo deistvitelno chetnoe')
else writeln ('Vvedennoe chislo nechetnoe');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.