Como criar um algoritmo que mostre se um numero é par ou impar usando o Case?

Estou aprendendo a criar algoritmo em Pascal, mas quando uso a função Mod não dá! Com If dá, mas no Case não.

Alguém pode criar pra mim?

ESTÁCIO

Disciplina: ALGORITMOS