Проверить, делится ли заданное четырехзначное число нацело на произведение цифр, составляющих это число в случае целого и вещественного типа числа — Pascal(Паскаль)

var
m,l,p,n:integer;
begin
readln(n);
m:=n;
p:=1;
while m>0 do
 begin
l:=m mod 10;
p:=p*l;
m:=m div 10;
end;
if n mod p=0 then write('Делится') else write('НЕ делится');
end.