Я вот тоже Вышел порешать =).
var p: array [1..1000] of record
slovo:string;
k:integer;
end;
N,i,j,max:integer;
c:char;
a:array [97..122] of integer;
BEGIN
max:=0;
readln(N);
for i:=1 to N do
begin
p[i].slovo:='';
repeat
read(c);
p[i].slovo:=p[i].slovo+c
until c=' ';
readln(p[i].k);
for j:=1 to length(p[i].slovo) do
if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then
a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;
end;
for j:=97 to 122 do
if a[j]>max then
max:=a[j];
write(max);
end.
q^2 +3q - 54 = 0;
D = 3 * 3 - 4 * 1 * (-54) = 9 + 216 = 225
q1 = (-3 + sqrt(225)) / 2 * 1 = 12 / 2 = 6
q2 = (-3 - sqrt(225)) / 2 * 1 = -18 / 2 = -9 (не подходит)
ответ: q = 6.