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

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