Синформатикой 100 надо 10 точек и рисунок ( как в примере )

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

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

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

т.д.