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

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