:даны шесть монет, из которых одна фальшивая. фальшивая монета отличается от настоящей монеты весом, причем она либо немного тяжелее, либо немного легче. имея рычажные весы, определить ложную монету не более чем за три взвешивания. это в паскале надо)

Var       a, real_coin: array[1..6] of integer;       forged_coin, i: integer; begin       for i : = 1 to 6 do               a[i] : = 10;       forged_coin : = random(6);       a[forged_coin] : = random(4) + 8;         writeln(forged_coin);             for i : = 1 to 6 do               write(a[i], ' ');       writeln;             forged_coin : = 0;       if a[1] + a[2] = a[3] + a[4] then begin               real_coin[1] : = a[1];               real_coin[2] : = a[2];               if real_coin[1] = a[5] then                       forged_coin : = 6               else forged_coin : = 5;       end       else begin               real_coin[1] : = a[5];               real_coin[2] : = a[6];               if a[1] + a[2] = real_coin[1] + real_coin[2] then begin                       real_coin[3] : = a[1];                       real_coin[4] : = a[2];                       if real_coin[1] = a[3] then                               forged_coin : = 4                       else forged_coin : = 3;               end                             else begin                       real_coin[3] : = a[3];                       real_coin[4] : = a[4];                       if real_coin[1] = a[1] then                               forged_coin : = 2                       else forged_coin : = 1;               end;       end;             writeln(forged_coin); end.

Делаем наоборот 1.: 2 2.+2 44: 2=22(1) 22+2=24(2) 24: 2=12(1) 12: 2=6(1) 6: 2=3(1) 3+2=5(2) 5+2=7(2) ответ 2211121