Использование подпрограммы-процедуры в Pascal Готовое решение