pascal code