Program 1 pascal (47/48)

Program 1 pascal