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