ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))Составьте...

Question

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

Answer 1

Var
a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 3 = 0 then
writeln('Число делится без остатка на 3')
else
writeln('Число не делится на 3 без остатка');
end.