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

program delenie;
var
x:integer;
begin
write('Vvedite 3-hznachnoe chislo:');
readln(x);
if x mod ((x div 100)+(x div 10 mod 10)+(x mod 10))=0 then
writeln('Delitsia')
else
writeln('Ne delitsia');
end.