program CrazyCoder; var a, b: integer; begin writeln('Введите два числа через пробел: '); readln(a, b); a := (a div 100) + ((a div 10) mod 10) + (a mod 10); b := (b div 100) + ((b div 10) mod 10) + (b mod 10); writeln('Сумма первого числа равна: ', a, '. Сумма второго числа равна: ', b); if a = b then writeln('Билет счастливый!') else writeln('Билет НЕ счастливый'); end.