Помогите, пожалуйста, решить :) Паскаль с while Ввести натуральное число и определить, какие цифры встречаются несколько раз (с защитой от неверного ввода).
While <условие> do begin {тело циклы} end;