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

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