const
n: array[1..10] of string = ('Россия', 'США', 'Греция', 'КНР', 'Турция', 'Германия', 'Испания', 'Колумбия', 'Бразилия', 'Египет');
k: array[1..10] of integer = (146270033, 318614000, 10992589, 1371379000, 77695904, 80780000, 46507760, 47992000, 203260762, 87265169);
s: array[1..10] of integer = (17125187, 9519431, 131940, 9598962, 780580, 357021, 504782, 1138910, 8514877, 1001450);
var
p: array[1..10] of integer;
i, j, bi, pmax: integer;
nmax: string;
begin
pmax:=1;
for i:=1 to 10 do
p[i] := k[i] div s[i];
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if p[i]>pmax then
begin
nmax:=n[i];
pmax:=p[i];
bi:=i;
end;
end;
write(nmax, ' ');
pmax:=0;
p[bi]:=0;
end;
end.