ИСПОЛЬЗУЙТЕ среду графического исполнителя, запрограммируйте рисование следующей фигуры:
На проверку нужно прислать скриншоты кодов и результаты работы алгоритмов в программе Кумир.
ТОЛЬКО , ПРИШЛИТЕ СКРИНШОТ РАБОТЫ В ПРОГРАММЕ, А НЕ ТЕКСТ ПО ТИПУ: ВВЕРХ, ВНИЗ, 5 НАПРАВО И Т.Д.

использовать Чертежник

алг

нач

сместиться на вектор (2,0)

опустить перо

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

сместиться на вектор (2,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (3,0)

сместиться на вектор (0,3)

сместиться на вектор (3,0)

сместиться на вектор (0,-3)

сместиться на вектор (1,0)

сместиться на вектор (0,4)

сместиться на вектор (3,0)

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,8)

сместиться на вектор (2,0)

сместиться на вектор (0,-2)

сместиться на вектор (-1,0)

сместиться на вектор (0,-8)

сместиться на вектор (-3,0)

сместиться на вектор (0,4)

сместиться на вектор (-1,0)

сместиться на вектор (0,-4)

сместиться на вектор (-3,0)

сместиться на вектор (0,4)

сместиться на вектор (-1,0)

сместиться на вектор (0,-4)

сместиться на вектор (-2,0)

сместиться на вектор (0,1)

сместиться на вектор (-1,0)

сместиться на вектор (0,-1)

сместиться на вектор (-3,0)

поднять перо

сместиться в точку (15.9,9)

опустить перо

сместиться в точку (16,9.1)

сместиться в точку (16.1,9)

сместиться в точку (16,8.9)

сместиться в точку (15.9,9)

поднять перо

сместиться в точку (0,0)

кон

Буду считать, что да, он самый востребованный тут =) 1) var a: array [0..9] of integer;     i, o: integer; begin       for i : = 1 to 20 do       begin           if (i mod 4 = 0) then a[o] : = i           else if (i mod 4 = 2) then a[o] : = -1 * i;           if (i mod 4 mod 2 = 0) then o : = o + 1;       end;             for i : = 0 to 9 do           writeln(a[i]); end.2)var a: array [0..30] of integer;     i, o: integer;     s: string; begin      for i : = 1 to 30 do      begin          a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do      begin          writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then          begin              o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.