Дано трехзначное число ,верно ли что сумма его цифер больше 10. Сложность 8 класса
Program n1; var a: integer; begin readln(a); if (a mod 10)+(a div 100)+(a mod 100 div 10)>10 then write('верно') else write('неверно'); end.