Для чого потрібні вкладені цикли

делим монеты на 3 кучки по 3 монеты в каждой

1 взвешивание, если равно, то фальшивая в третьей кучке

далее поступаем таким же образом.

итого 2 взвешивания 

для перемещения курсора в конец текста надо зажать клавишу правой стрелочки

var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 9)and(a< 99) thens: =s+a; until a=0; writeln(s); end.

Объяснение:

Вложенные циклы нужны для проверки и выполнения 2-ух условий