Program 1 pascal (40/48)

Program 1 pascal