Запишите на паскале (47/48)

Запишите на паскале