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

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