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

кон

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.