Program 1 pascal