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

Var
    num: integer;

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