Плотность, я так понимаю, населения на квадратный километр? Взял инфу из 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.
gif - поддерживает кодирование с палитрой 256 цветов, части рисунка могут быть прозрачными, те будет просвечиваться фон, в таком формате можно хранить анимированные изображения, используется сжатие без потерь, те при сжатии искажение отсутствует.
png- формат, поддерживающий как режим истинного цвета, так и кодирование палитрой, части изображения могут быть прозрачными и полупрозрачными, сжимается без искажений, анимация не поддерживается.
jpg- формат, разработанный специально для кодирования фотографий, поддерживает только режим истинного цвета, используется сильное сжатие для уменьшения объёма файла, при котором изображение искажается (немного), не рекомендуется его использовать для рисунков с четкими границами объектов
в ico не шарю
