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

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