Задача 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.