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

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