Я вот тоже Вышел порешать =).
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.
вот в 6 программа выводит все числа кроме 1 и самого числа #1
x=int(input())
s=0
while x!=0:
x=int(input())
s+=1
print(s)
#2
x=int(input())
s=0
while x!=0:
x=int(input())
if x==3:
s+=1
print(s)
#3
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=1
else:
s1+=1
print('четные-',s,'\n','нечетные-',s1)
#4
x=1
s=-1
s1=0
while x!=0:
x=int(input())
if (x%2)==0:
s+=x
else:
s1+=x
print('четные sum-',s,'\n','sum нечетные-',s1)
#5
s=0
x=int(input())
while s<=x:
y=int(input())
s+=y
if s<=x:
break
#6
x=int(input())
t=x-1
while t>1:
if (x%t)==0:
print(x/t)
t-=1
else:
t-=1