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

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