Составьте программу на языке паскаля, определяющую, является ли введенное с клавиатуры целое число четным пример ввода: 68 пример вывода: число 68 - четное

Var
  text:integer;
Begin
  readln(text);
  if (text mod 2 = 0) then writeln(text,' - четное')
  else writeln(text,' - не четное')
End.