клубника бомба честно говоря

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

uses System.Linq;

function GetPrimes(n: integer): List<integer>;

begin

   var primes := new List<integer>();

   primes.Add(2);

   

   for var i := 3 to n do

   begin

       if primes.All(x -> i mod x > 0 ) then

           primes.Add(i);

   end;

   

   GetPrimes := primes;

end;

begin

   var n := ReadInteger('n =');

   var primes := GetPrimes(2 * n);

   

   foreach var p in primes do

       if primes.Contains(p + 2) then

           writeln(p, ' ', p + 2);

end.

Магазин. Отдел продажи компьютеров и товаров к ним. Клиентам выдают каталог товаров. Они ищут компьютерную мышку. Компьютерная мышь последней модели хвастается перед дешёвой, самой обычной мышью: "Вот это за мной пришли, ведь я самая лучшая из вас!", дешёвая мышка ничего не говорит, она знает, что мир справедлив, и заберут их всех.
—Хочу вот эту, говорит девочка указывая на обычную мышь.
—Давай возьмём получше, говорит её отец.
Пока продавец распечатывает лучшую мышку, дешевая совсем унывает. Но тут оказывается что лучшая мышь оказывается с браком, и её относят на склад.
—Давай возьмём эту, девочка берёт дешёвую мышь.
Её упаковывают в коробку и несут куда то. Мышка думает: " Никогда не стоит унывать, все когда то случится".