Запиши программу на языке паскаль (40/48)

Запиши программу на языке паскаль