1: дано натуральное трехзачное число х. определить, сумма его цифр больше 10 или нет.

Uses crt;
var a,b,c,input:integer;
begin       
readln(input);               
a := input div 10;       
a := a div 10;               
b := input div 10;       
b:=b mod 10;               
c := input mod 10;               
if (a + b + c) > 10 then writeln('Больше 10')        else writeln('Меньше 10');
end.