little pascal code for you