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

CategoriesАлгебраПредмет

) чисел.

Ответы:

Var a:Integer,

Begin 

 Write(Введите число),

 Read(a),

  If a mod 2 = 0 Then Write(Число четное)

                 Else WriteLn(Число не четное),

end.