Program 1 pascal (44/48)

Program 1 pascal