Много . паскаль. пользователь вводит с клавиатуры целое число а. если это число является четным, вывести на экран фразу "вы ввели четное число", в другом случае "вы ввели нечетное число"

var a:integer; 
begin 
read(a); 
if (a mod 2=0) then writeln('Вы ввели четное число')   
else writeln('Вы ввели нечетное число'); 
end.