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

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