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

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