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

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