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

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