Построить программу в Паскаль. "Дано трехзначное число. Определить, будет ли сумма его...

Question

Построить программу в Паскаль. "Дано трехзначное число. Определить, будет ли сумма его цифр больше 15." Пожалуйста!

Answer 1

var a,b,c,d:integer;

begin
read(d);
a:=d div 100;
b:= (d div 10) mod 10 ;
c:=d mod 10;

if (a+b+c) >15 then
writeln('YES')
else
writeln('NO');
readln;

end.