Помогите пожалуйста Составить программу в паскале является ли четным число, в итоге чтоб ответ был да или нет

 var     a : integer;  begin   readln (a);    if a mod 2 = 0 then     writeln ('Да')   else    writeln ('Нет');  end.