Как исправить программу на pascal, чтобы все тесты прошли?

Хорошо, попробую. Спасибо за поправки!