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

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