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

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