Program 1 pascal (10/48)

Program 1 pascal