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?

Disciplina:ALGORITMOS1.519 materiais