Запишите число 13692 в развёрнутом виде, начиная со старшего разряда.

10000+3000+600+90+2 = 13692

запишем нули в степени

1*10^4+3*103+6*10^2+9*10^1+2*10^0

Поделить монеты таким образом: 

1-ое взвешивание: 27:3=9 По 9 монет в каждой чаше. Если они уравновесят друг друга, то оставшаяся горка из 9 монет содержит фальшивку. В противном случае, определяем какая чаша монет тяжелее и убираем остальные.

2-ое взвешивание, аналогично, делим пополам 9:3=3 По (3-3), если уровновесят друг друга, то оставшаяся кучка содержит фальщивую монету, а если нет,то определям какая чаша тяжелее

3-е взвешевание, опять же аналогично, теперь легко в чашах по (1-1) и остается одна монета, если чаши уровновесятся, то оставшаяся-фальшивая

Простите чуть-чуть стормозила)

var n,m,i,s1,s2:integer;
p1,p2,p:real;
a,b:array[1..10] of integer;
begin
write('n=');read(n);
write('m=');read(m);writeln;
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to m do begin
write('b[',i,']= ');
readln(b[i]);
end;writeln;
s1:=0;
for i:=1 to n do s1:=s1+a[i];
p1:=s1/n; p1:=int(p1);
writeln('Srednee arifmeticheskoe massiva A=',p1);
s2:=0;
for i:=1 to m do
s2:=s2+b[i];
p2:=s2/m;p2:=int(p2);
writeln('Srednee arifmeticheskoe massiva B=',p2);
p:=p1+p2;
if p1=p2 then write('A=B') else begin
if p1>p2 then write('A>B') else write('A<B');
end;
end.