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

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