составьте программу определяющую является ли введенное с клавиатуры целое число кратным 3

Я все же рекомендую использывать старый добрый Mod. Учителя любят прикопаться к какой-нибудь команде, которую они не объясняли.

с mod можно ошибиться на разных кратностях...а вот с frac точно не ошибиться...

У меня ошибок не возникало

Но Frac надежней

с mod запутываются когда остаток должен быть больше какого то числа, то будет кратное - именно в этом числе и ошибаются

var a:integer;beginWriteln('Введите целое число');Readln(a);if frac(a/3) > 0 then writeln('Число не кратно 3')else Writeln('Число кратно 3')end.P.S. Frac - это дробная часть числа, в данном примере frac(a/3)  это дробная часть числа а деленного на 3