Ввести с клавиатуры двухзначное число.опред.,равна ли сумма его цифр 10. решить в паскале

program proga;uses crt;varx:byte;beginreadln(x);if x=19 or x=28 or x=37  or x=46  or x=55  or x=64 or x= 73  or x=82  or x=91 thenwriteln(сумма чисел в двухзначном числе равна 10)else writeln(сумма чисел в двухзначном числе  не равна 10) ;end.