Дано четырехзначное число.Определить:кратно ли произведение его цифр числу а.

var   n,i,a:integer;   p:longint; begin   Write('Введите четырехзначное число: '); Read(n);   Write('Введите число для проверки кратности: '); Read(a);   p:=1;   for i:=1 to 3 do   begin     p:=p*(n mod 10);     n:=n div 10   end;   p:=p*n;   if (p mod a)=0 then Writeln('Число кратно ',a)   else Writeln('Число не кратно ',a) end. Тестовое решение: Введите четырехзначное число: 3673 Введите число для проверки кратности: 7 Число кратно 7