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

program Aba;
var
a,a1,a2,a3,a4,b:integer;
begin
writeln('Введите число');
readln(a);
begin
a1:=a div 1000;
a2:=(a-a1*1000) div 100;
a3:=((a-a1*1000)-a2*100) div 10;
 a4:= (a-a1*1000-a2*100-a3*10);
b:=a1*a2*a3*a4;
if (a mod b)=0 then
 write('делится ')
else
write('не делится ')
end;
end.