Составьте программу сортировки по возрастанию значений трёх переменных: a, d,c.

Var       a, d, c, t: integer; begin       readln(a, d, c);       if a < d then begin t : = a; a : = d; d : = t; end;       if a < c then begin t : = a; a : = c; c : = t; end;       if d < c then begin t : = d; d : = c; c : = t; end;       writeln(a, ' ', d, ' ', c); end.

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных