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

Question

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

Answer 1

Program proga;
uses crt;
var
x:byte;
begin
readln(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 then
writeln(сумма чисел в двухзначном числе равна 10)
else
 writeln(сумма чисел в двухзначном числе  не равна 10) ;
end.