ввести с клавиатуры двузначное число определить делится ли оно на сумму своих
цифр PascalABC
Даю 30 баллов!!!!

Программа проверяет правильность вводимых данных, а так же определяет наявность цифры 0 в числе, ведь на 0 делить нельзя var n,a,b:byte; begin read(n); if (n>=10)and(n<=99) then begin a:=n div 10; b:=n mod 10; if b<>0 then begin if (n mod a=0)and(n mod b=0) then writeln('Da, delitsya') else writeln('Net, ne delitsya') end else writeln('Poslednyaya cyfra = 0, na 0 delit nelzya!'); end else writeln('Vvedite 2-zna4ne 4islo!').end.

var n:integer;begin write('Введите двузначное число='); readln(n);if n mod ((n mod 10)+(n div 10))=0 then Writeln('да, делится')else Writeln('нет, не делится');end.