Переделать алгоритм блок схемы

Нтр (научно-техническая революция) – это скачок в развитии производительных сил общества, переход их в качественно новое состояние на уровне коренных сдвигов в системе научных знаний.  этапы научно-технического развития:   1. изобретения, завершившиеся возникновением машинного производства (17 – 18 вв.);   2. развитие специальных отраслей науки и прикладных исследований (19 – 1ая половина 20 вв.) - изменение энергетической основы производства, переход к стадии автоматизации производства, создание новых отраслей на чисто научной основе (электротехника, электроэнергетика, промышленность);   3. превращение науки в непосредственные производительные силы общества – современная нтр.  этапы развития современной нтр:   первый этап.  40-е г. — телевидение, , компьютеры, радар, ракеты, атомная бомба, синтетические волокна, пенициллин;   50-е гг. — водородная бомба, искусственные спутники земли, реактивный пассажирский самолет, электроэнергетическая установка на базе ядерного реактора, станки с числовым программным (чпу);   60-е гг. — лазеры, интегральные схемы, спутники связи, скоростные экспрессы.  второй этап.  70-е годы — микропроцессоры, волоконно-оптическая передача информации, промышленные роботы, биотехнология;   80-е гг. — сверхбольшие и объемные интегральные схемы, сверхпрочная керамика, компьютеры пятого поколения, генная инженерия, термоядерный синтез.  социальные последствия нтр  1. безработица;   2. изменения в профессиональной среде;   3. сокращение рабочих мест. 

Пункт а: насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. например если вы введете число из 9001 символа, программа будет работать неккоректно. для выхода из цикла используется 'метка'. a, counter, summa : integer; label transfer; begin writeln('введите число'); readln(a); counter : = 1; countertw0 : = countertwo + 1; while counter < 9000 do     begin     counter : = counter +1;       if (a div counter) < 0 then transfer       else countertwo : = countertwo + 1;     else; goto transfer; //узнали, что в числе countertwo символов while counter < countertwo do summa : = summa + ((a div counter) mod 10); summa : = summa + (a mod 10); writeln(summa); end.