ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))
Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.

Program kontr;var a:integer;beginwriteln ('Vvedite celoe chislo');readln(a);if (a mod 3 = 0) then writeln ('Da')else writeln ('Net');end.