Нужно составить команду в кумире чертежник,чтобы получилось имя богдан. .

Первый способ (большой): использовать чертежник алг богдан_1 нач опустить перо сместиться в точку(0, 11) сместиться в точку(6, 11) поднять перо сместиться в точку(0, 6) опустить перо сместиться в точку(6, 6) сместиться в точку(6, 0) сместиться в точку(0, 0) поднять перо сместиться в точку(8, 0) опустить перо сместиться в точку(8, 11) сместиться в точку(14, 11) сместиться в точку(14, 0) сместиться в точку(8, 0) поднять перо сместиться в точку(16, 0) опустить перо сместиться в точку(16, 11) сместиться в точку(22, 11) поднять перо сместиться в точку(22, 0) опустить перо сместиться в точку(22, -2) сместиться в точку(22, 0) сместиться в точку(30, 0) сместиться в точку(30, -2) сместиться в точку(30, 0) сместиться в точку(28, 0) сместиться в точку(28, 11) сместиться в точку(24, 11) сместиться в точку(24, 0) поднять перо сместиться в точку(32, 0) опустить перо сместиться в точку(32, 11) сместиться в точку(38, 11) сместиться в точку(38, 0) сместиться в точку(38, 5) сместиться в точку(32, 5) поднять перо сместиться в точку(40,0) опустить перо сместиться в точку(40, 11) сместиться в точку(40, 5) сместиться в точку(46, 5) сместиться в точку(46, 11) сместиться в точку(46, 0) кон второй способ (короткий): использовать чертежник алг богдан_2 нач написать(30, "богдан") кон

//////////////////////////forvar   a, i, n, sum: integer;   degin       readln(a, n);       sum : = 1;       for i : = 1 to n do sum : = sum * a;       writeln(sum); end.//////////////////////////while var   a, i, n, sum: integer;   begin     read(a, n);     sum : = 1;       while i < > n do       begin           sum : = sum * a;         inc(i);       end;     writeln(sum); end.//////////////////////////repeat var   a, i, n, sum: integer;   begin     read(a, n);     sum : = 1;       if n < > 0 then         repeat             begin                 sum : = sum * a;                 inc(i);             end;         until i = n;       writeln(sum); end.