На вход программы подаются сведения о набранных на ЕГЭ баллах учениками данной школы по трём предметам. В первой строке сообщается количество учащихся N, каждая из следующих N строк имеет формат: < Фамилия > < Инициалы > < БаллыПоРусскомуЯзыку > <БаллыПоМа- тематике> <БаллыПоИнформатике>, где < Фамилия > — строка, состоящая не более чем из 20 символов, < Инициалы > — строка, состоящая из 4-х символов (буква, точка, буква, точка), <БаплыПоРусскому Языку^ <БаллыПоМатематике>, <БаллыПоИнформатике> — целые числа в диапазоне от 0 до 100. Все элементы одной строки отделены друг от друга пробелом. Пример входной строки: Петров С. Н. 78 82 70
Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая будет выводить на экран фамилии и инициалы учеников, набравших максимальную сумму баллов по трём предметам (таких учеников может быть несколько), а также набранную ими сумму баллов.
Следует учитывать, что N < 100.
var fio : array[1..100] of string;
bs : array[1..100] of integer;
max,N,i,k,b : integer; с : char;
begin
readln(N);
max:=0;
for i:=1 to N do begin fio[i]:=' ';
for k:=1 to 2 do
repeat read(c);
fio[i]:=fio[i]+c;
until c=' ';
read(bs[i]);
for k:=1 to 3 do
begin
read(b);
bs[i]:=bs[i]+b;
end;
readln;
if bs[i]>max then max:=bs[i];
end;
for i:=1 to N do
if bs[i]=mах then writeln(fio[i] ,max);
end.