МШ
Мария Шмелева
Составьте программу которая проверяет делиться ли на 3 введенно целое число, и выводит на экран соответствующее сообщене
сообщение: "Делиться" либо "Не делиться"
сообщение: "Делиться" либо "Не делиться"
if A mod 3 = 0 then writeln('+')
else writeln('-')
program delenie;
var a: integer;
begin
writeln ('Введите любое целое число ');
readln (a);
if (a mod 3=0)
then writeln ('Делится ')
else writeln ('Не делится ');
end.