Ставьте для чертёжника повторяющийся алгоритм. в общем нужно придумать 2 для чертёжника с повторяющимися алгоритмами. допустим: поднять перо сместиться на вектор 4; 5 и т.д. : )

Var n,z,k: integer; begin write('введите сумму: '); readln(n); k: =500; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =100; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =50; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =10; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =5; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); k: =1; z : = n div k; n : = n mod k; if z> 0 then writeln(k,' * ',z); end.

Персональные компьютеры pc сегодня стали незаменимыми человека во всех без исключения сферах человеческой деятельности. на компьютерах рассчитывают заработную плату и объем урожая, рисуют графики движения товаров и изменения общественного мнения, проектируют атомные реакторы и ботинки. слово “компьютер” означает “вычислитель”. потребность в автоматизации обработки данных, в том числе вычислений, возникла давно. в настоящее время индустрия производства компьютерного железа и программного обеспечения является одной из наиболее важных сфер развитых и развивающихся стран. причины стремительного роста индустрии персональных компьютеров:   невысокая стоимость;   сравнительная выгодность для многих деловых применений;   простота использования;   возможность индивидуального взаимодействия с компьютеров без посредников и ограничений;   высокие возможности по переработке, хранению и выдаче информации;   высокая надежность, простота ремонта и эксплуатации;   компьютерное железо адаптивно к особенностям применения компьютеров;   наличие программного обеспечения, охватывающего практически все сферы человеческой деятельности, а также мощных систем для разработки нового программного обеспечения.