Ввести трехзначное число с клавиатуры и выяснить будет ли сумма его цифр < 10

var    num: integer;begin    readln(num);    writeln('Больше 10? ', num mod 10 + num div 100 + num div 10 mod 10 > 10); end.