Pascal (6)

PROGRAM 1

PROGRAM 2