Составить алгоритмы рисунков, используя команды сместиться в точку и сместиться на вектор я уже это делать я тупая) сделайте за меня а я вам ок? всего 4 штуки я сдела дзла ток 1 а дальше запуталась на простом( там не лампу а динозавра сделать.) :

Кажется библиотека   иерархическая модель появилась впервые в результате обобщения структур данных языка кобол. в иерархических моделях основная структура представления данных имеет форму дерева. на самом высшем (первом)  уровне иерархии находится только одна вершина, которая называется корнем дерева. эта вершина имеет связи с вершинами второго уровня, вершины второго уровня имеют связи с вершинами третьего уровня и т.д. связи между вершинами одного уровня отсутствуют. следовательно, данные в иерархической структуре не равноправны – одни жестко подчинены другим.  доступ к информации возможен только по вертикальной схеме, начиная с корня, так как каждый элемент связан только с одним элементом на верхнем уровне и с одним или несколькими на низком. примером иерархической структуры может служить  книга, как иерархическая последовательность букв, которые объединяются в слова, слова – в предложения, предложения  –  в параграфы, затем в главы и т.д.

integer1. дано расстояние l в сантиметрах. используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см). program integer_1; var l, k: integer; begin write ('введите значение l: '); readln (l); k : = l div 100; write ('количество полных метров: ', k,'.'); end. integer2. дана масса m в килограммах. используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг). program integer_2; var m, k: integer; begin write ('введите значение m: '); readln (m); k : = m div 1000; write ('количество полных тонн: ', k,'.'); end. integer3°. дан размер файла в байтах. используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта). program integer_3; var a, k: integer; begin write ('введите размер файла: '); readln (a); k : = a div 1024; write ('количество полных килобайтов: ', k,'.'); end. integer4. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию деления нацело, найти количество отрезков b, размещенных на отрезке a. program integer_4; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a div b; write ('количество отрезков b, размещенных на отрезке a: ', k); end. integer5. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка a. program integer_5; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a mod b; write ('длина незанятой части отрезка: ', k); end. весьма вероятно, что условия следующих покажутся вам знакомыми, что ничуть не странно, ведь в одном из уроков мы уже приводили решение , подобной данным. integer6. дано двузначное число. вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления. program integer_6; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; writeln (desyatki); edinizi : = chislo mod 10; writeln (edinizi); end. integer7. дано двузначное число. найти сумму и произведение его цифр. program integer_7; var chislo, desyatki, edinizi, summa, proizv: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; summa : = desyatki + edinizi; proizv : = desyatki * edinizi; writeln ('сумма цифр числа: ', summa); writeln('произведение цифр числа: ', proizv); end. integer8°. дано двузначное число. вывести число, полученное при перестановке цифр исходного числа. program integer_8; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; chislo : = edinizi * 10 + desyatki; writeln ('полученное число: ', chislo); end. integer9. дано трехзначное число. используя одну операцию деления нацело, вывести первую цифру данного числа (сотни). program integer_9; var chislo, sotni: integer; begin write ('введите число: '); readln (chislo); sotni : = chislo div 100; writeln (sotni); end. integer10. дано трехзначное число. вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки). program integer_10; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); edinizi : = chislo mod 10; writeln (edinizi); desyatki : = chislo mod 100 div 10; writeln (desyatki); end.