В числовую переменную последовательно вводятся целые числа, не равные нулю.
кол-во вводимых чисел n неизвестно. Найти сумму тех чисел, в которых встречаются ровно две цифры 5.(в паскале написать программу)

//PascalABC.NET версия 3.2, сборка 1367begin    var sum := 0;    for var i := 1 to ReadInteger('n=') do     begin        var num := ReadInteger('Введите число =');        if num.ToString().ToCharArray.Count(c -> c = '5') = 2 then            sum += num;    end;    Writeln(sum);end.