Дано трократное число, Определить: кратна ли сума его цифр числу а

Теперь еще и "трократные числа" появились. Мир полнится открытиями.. .
var b,a:integer;
begin
write('a ? '); readln(a); write('b ? '); readln(b);
writeln((b div 100+b div 10 mod 10+b mod 10)mod a=0);
readln
end.