Проверить, делится ли заданное четырехзначное число нацело

var ch,pr,a:integer;
begin
write('vv chislo= ');
readln(ch);
a:=ch;pr:=1;
while a<>0 do
      begin
      pr:=pr* (a mod 10);
      a:=a div 10;
      end;
if ch mod pr =0 then writeln('da')
   else writeln('net');
readln;
end.

var n, i, k, n2:integer;
    a: array [1..4] of integer;
    v:boolean;
    
begin
 writeln('Введите n:');
 readln(n);
 v:=false;
 a[1]:=n div 1000;
 a[2]:=n div 100;
 a[2]:=a[2] mod 10;
 a[3]:=n div 10;
 a[3]:=a[3] mod 10;
 a[4]:=n mod 10;
 k:=a[1]*a[2]*a[3]*a[4];
 if k<>0 then begin
 if n mod k=0 then v:=true else v:=false;
 end;
 writeln(v);
end.

function checknumber(a:integer):boolean;
var b,n,p:integer;
begin
  checknumber:=false;
  p:=1;b:=a;
  while b>0 do begin
    n:=b mod 10;
    p:=p*n;
    b:=b div 10;
  end;
  writeln('произведение цифр ',p);
  if p>0 then
    if a mod p=0 then
      checknumber:=true;
end;
 
var n:integer;
 
begin
  writeln('введите 4-ёх значное число');
  readln(n);
  if (n>=1000) and (n<10000) then
      if checknumber(n) then
        writeln('делится')
      else writeln('не делится')
  else
    writeln('число не в нужном диапозоне ');
end.

var ch,pr,a:integer;
begin
write('vv chislo= ');
readln(ch);
if (ch>9999) or (ch<1000) then
   while (ch>9999) or (ch<1000) do
         begin
         writeln('vv 4-x znat chislo');
         readln(ch);
         end
   else
   begin
   a:=ch;pr:=1;
   while a<>0 do
      begin
      if a mod 10 = 0 then begin Writeln('Na 0 del nel"za!');Halt; end;
      pr:=pr* (a mod 10);
      a:=a div 10;
      end;
   if ch mod pr =0 then writeln('da')
      else writeln('net');
   end;
readln;
end.