При каком значении n произведение станет меньше 0,1
p = 1/4 * 1/36 * * 1/(2n)^2
нужно написать программу в паскале.

На вкладке Вставка в группе Иллюстрации нажмите кнопку SmartArt.

В коллекции Выбор рисунка SmartArt выберите элемент Процесс, а затем дважды щелкните Процесс со смещенными рисунками.

Выберите "Процесс"

В фигуре, в которую вы хотите добавить рисунок, щелкните значок рисунка Значок рисунка , выберите рисунок и нажмите кнопку Вставить.

Для ввода текста выполните одно из следующих действий:

В области текста щелкните элемент [Текст] и введите содержимое.

Примечание: Если область текста не отображается, на вкладке Конструктор нажмите кнопку Область текста.

Скопируйте текст из другого места или программы, в области текста щелкните элемент [Текст], а затем вставьте скопированное содержимое.

Щелкните поле в графическом элементе SmartArt и введите свой текст.

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