с клавиатуры вводиться трёхзначное число ,составить программу которая проверит делиться ли она на сумму своих чисел

Спасибо большое

VarA,B:integer;BeginWriteLn('Введите целое трёхзначное число');ReadLn(A);B:=(A div 100)+((A div 10) mod 10) + (A mod 10);if (A mod B = 0) then Write(A,' делится на ',B)else Write(A,' не делится на ',B);End.