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

var x,a,s,r,y,v:integer;
begin
write('Vvedite chislo=');
readln(x);
a:=x div 1000;
s:=x div 100 mod 10;
r:=x mod 100 div 10;
y:=x mod 10;
v:=a*s*r*y;
if (v=0) then writeln('No')else
if (x mod s=0) then writeln('Yes')else
if (x mod s<>0) then writeln('No');
readln
end.