составить программу "Является ли введённое число чётным?"
пожалуйста оочень надо

var n:integer;
begin
     write('введите число');
    read(n);
if n mod 2=0 then write('данное число четное')
                  else write('данное число не явл четным');
end.

Любишь покороче? Тогда лучше так: