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

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