Плотность, я так понимаю, населения на квадратный километр? Взял инфу из Wiki. Вот что получилось:
program HomeWork;
const countries:array[1..10] of string = ('Россия', 'США', 'Греция', 'КНР', 'Турция', 'Германия', 'Испания', 'Колумбия', 'Бразилия', 'Египет');
const density:array[1..10] of real = (8.56,32,81,650,100,230,92,39,23.6,80);
var i:integer;
var d:real;
var s:string;
begin
d := 0;
for i := 1 to length(density) do
begin
if d < density[i] then
begin
d := density[i];
s := countries[i];
end;
end;
writeln('Самая большая плотность в ', s, ', и она равна ', d:3:0, ' человек на квадратный километр')
end.
X1 Орёл , X2 решка X2 Орёл , X1 решка
X2 Орёл , X1 решка | | X1 Орёл , X2 решка
X3 Орёл / \ | | / \ X3 Решка
3 Орёл Решка Орёл Решка Орёл Решка Орёл Решка
\ \ \ | | / / /
2 Орёл Решка Орёл Решка
\ \ / /
1 Орёл Решка