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

Question

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

Answer 1

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