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