Срочно! Помогите с задачей!

Ребят, возникла проблема. У друга не получается решить задачу по информатике, 11 класс. Если кто-нибудь знает как решить, не проходите мимо! 

1.) Ответ :6
2) Ошибки: в 5 строке (по Паскалю) там надо min_digit:=n;(минимальное число никогда не обнуляют!)
в 9 строке if digit< min_digit then ( надо знак поменять с '>' на '<')

Спасибо большущее!