Таблицы истинности. Подобрать буквы к столбцам

великобритания - лондон

греция - афины

италия - рим

нидерланды -

франция - париж

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.