Помогите с информатикой! Срочно! Нужно решить задачу в паскале с ветвлением - составить программу определения четных (нечетных) чисел.

Var a:Integer;
Begin 
 Write(Введите число);
 Read(a);
  If a mod 2 = 0 Then Write(Число четное)
                 Else WriteLn(Число не четное);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.