//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.