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

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