Совокупность данных, в которой каждый объект может быть связан с любым другим объектом​

Решение тут простое, а вот как оформить...наверно блок-схему имеет смысл нарисовать.
Число a - любое натуральное, число b - натуральное четное, т.е. b=2k, где k - любое натуральное число.

Легко видеть, что по результатам шестого шага алгоритма получилось число k. Но мы полагали, что b=2k, поэтому Бим удваивает сообщенное ему число и получает b.

Примеры решений:
1. A=37, B=18
3) 37*2=74 4) 74+18=92 5) 92/2=46 6) 46-37=9 и теперь 9*2=18=B
2. A=4, B=2
3) 4*2=8 4) 8+2=10 5) 10/2=5 6) 5-4=1 и теперь 1*2=2=B
3. A=12345, B=222
3) 12345*2=24690 4) 24690+222=24912 5) 24912/2=12456 6) 12456-12345=111 и теперь 111*2=222=B

var

 a:array of double;

 i,n,j:integer;

procedure swap(var x,y: double);

  var t: double;

begin

   t := x;

   x := y;

   y := t

end;

 

begin

 write('Кол-во чисел: '); readln(n);

 setlength(a,n);

 dec(n);    

 for i:=0 to n do

   readln(a[i]);

 writeln;  

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;    

 for j:=0 to n-1 do

   for i:=0 to N-j-1 do

     if a[i] < a[i+1] then

       swap(a[i],a[i+1]);        

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;  

end.

Если моё решение вам, пометьте его лучшим !