Плотность, я так понимаю, населения на квадратный километр? Взял инфу из 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.
