// PascalABC.NET 3.2, сборка 1449 от 23.05.2017// Внимание! Если программа не работает, обновите версию!type R=(string,integer);begin var a:=ReadAllLines('input.txt'); var L:=new List<R>; foreach var s in a do begin var w:=s.ToWords.ToArray; if w[2]>'80' then L+=(w[1][1]+'. '+w[0],w[2].ToInteger); end; var f:=OpenWrite('output.txt'); L.OrderByDescending(x->x[1]).ForEach(x->Writeln(f,x[0],' ',x[1])); f.Closeend.