pascal_farleft.c