Дано трехзначное число составить программу которая определят кратно ли 3 произведение его цифр ( на языке паскаль)

И эта программа не работает для отрицательных чисел

Теперь все правильно, Грозный?

1) Если переменная описана как integer, программа нецелое число не примет. 2) Еще раз: вводимые данные не могут противоречить условию задачи, если не указано явно, что их необходимо проверять. Это условия НАШЕГО РЕСУРСА. Не пытайтесь на нем установить собственные правила.

В данном случае Ваше субъективное мнение, если оно противоречит субъективному же мнению лица с модераторскими правами, ничтожно. Вы обязаны или выполнить требуемое (и при желании ПОТОМ обжаловать у Администратора), либо покинуть Ресурс, как лицо, не согласное с Правилами.

и снова возвращаемся к началу дискуссии. в изначальном задании ни слова нет про отрицательные числа и сдается мне, если бы в задаче было что то про это сказано, здесь бы это написал ТС. вот именно, кто я такой, чтоб спорить с модератором... уговорили, не буду больше помогать.

ушел...

Чем такая "помощь", уж лучше никакой. Бесполезная трата времени. Своего и остальных.

Как-то так (фотография)(работает и с отрицательными числами)