pascal_asymmeteric.c