Запишите на языке паскаль (47/48)

Запишите на языке паскаль