Написать программу которая считывает трехзначное число и находит является ли сумма цифр этого числа больше или меньше

Решение задачи:Код написан в программе PascalABC.NET.var a, one, two, three, sum: integer;beginwrite(\'Введите трехзначное число: \');readln(a);one:=a div 100; two:=(a mod 100) div 10;three:=a-one*100-two*10;sum:=one+two+three;if sum=10 then writeln(\'Ответ: сумма цифр числа равна 10\') //Условие: сумма цифр равна 10.else begin if sum<10 then writeln(\'Ответ: сумма цифр числа меньше 10\') //Условие: сумма цифр < 10. else writeln(\'Ответ: сумма цифр числа больше 10\'); //Условие: сумма цифр > 10. end;end.