Составьте и отладьте программу, определяющую максимальное из всех введенных вами чисел. (пусть признаком конца ввода чисел является введенное число 0.) используя цикл с постусловием

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

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

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