РЕБЯТА, ПОМОГИТЕ, ОЧЕНЬ ВАЖНО Для делимости числа на 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.