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