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

vara:integer;beginwriteln('Введите число');readln(a);if a mod 3 = 0 thenwriteln('Число делится без остатка на 3')elsewriteln('Число не делится на 3 без остатка');end.