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

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

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.