#4

Начал переделывать в подпрограмму