Program 1 pascal (42/48)

Program 1 pascal