Запишите на языке pascal (35/48)

Запишите на языке pascal