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

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