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

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