Pascal/Turbo Pascal - For, While, Do, to, cual como lo hago

Necesito hacer un programa que imprima en pantalla los números pares hasta el 20 menos el 12 o que no imprima el doce ya lo ice que imprima del 2,4,6,8,10,12,13,14,16,18,20 pero no quiero que salga el "12" se Q' es simple pero soy nuevo en esto Agracias por su ayuda.