.Дано четырехзначное число N. Определить, делится ли это число на все свои цифры?

var a,a1,a2,a3,a4:integer; begin writeln('a='); readln(a); a1:=a div 1000; a2:=a div 100 mod 10; a3:=a mod 100 div 10; a4:=a mod 10; writeln('цифры: ',a1:2,a2:2,a3:2,a4:2); if (a mod a1=0)and(a mod a2=0)and(a mod a3=0)and(a mod a4=0)   then writeln('Введенное число делится на все свои цифры')   else writeln('Введенное число не делится на все свои цифры'); end.