РЕБЯТА, ПОМОГИТЕ, ОЧЕНЬ ВАЖНО

Для делимости числа на 3 требуется, чтобы сумма цифр числа делилась на 3. Написать функцию проверки делимости N чисел, вводимых с клавиатуры, на 3. Паскаль.Рекурсия 

ох уж не знаю, права я или нет :D

Но вот я бы сделала так)))

beginreadln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}s := 0; {это у нас будет сумма цифр числа }while a<>0 dobeginb := a mod 10; {выделяем последнюю цифру}s := s + b; {находим сумму}a := a div 10 {переходим к следующей цифре}end;if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}writeln('число делится на три')elsewriteln('число не делится на три')end.