//PascalABC.NET 3.4.2

begin

 var num := readinteger('Введите число:').ToString;

 if(num.Sum(x -> strtoint(x)) in [10..99]) then  

   write('Сумма цифр является двузначным числом,')

 else  

   write('Сумма цифр не является двузначным числом,');

 if(num.Contains('4')) or (num.Contains('7')) then

   write(' в записи этого числа есть числа 4 или 7.')

 else  

   write(' в записи этого числа нет числа 4 или 7.');

end.