Составьте программу ** языке Паскаля, определяющую, является ли введенное с клавиатуры...

Question

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

Answer 1

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

Comments

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

---

исправил