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

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