PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ReadAllLines('samecode.in');
var n := 1;
n := ReadIntegerFromString(a[0], n);
var w := a[1].ToWords(',', ' ').Last;
var k := a[1].MatchValues(w).Count;
WriteAllText('samecode.out',
a[2:n + 1].Numerate.Where(t -> t[1].MatchValues(w).Count = k)
.Select(t -> t[0] + 1).Sum.ToString)
end.
Файл samecode.in с контрольным примером дан во втором вложении
Скачать вложение Текст (TXT)