Нарисовать вот такого слоника. в программе чертежник!

Или может такого? : использовать чертежник алг нач сместиться на вектор (7,7) опустить перо сместиться на вектор (0,-1) сместиться на вектор(1,0) сместиться на вектор(0,4) сместиться на вектор(-4,0) сместиться на вектор(0,-4) сместиться на вектор(-1,0) сместиться на вектор(0,-1) сместиться на вектор(2,0) сместиться на вектор(0,1) сместиться на вектор(1,0) сместиться на вектор(0,-3) сместиться на вектор(3,0) сместиться на вектор(0,2) сместиться на вектор(1,0) сместиться на вектор(0,-2) сместиться на вектор(3,0) сместиться на вектор(0,5) сместиться на вектор(-5,0) поднять перо сместиться на вектор(5,0) опустить перо сместиться на вектор(1,-1) поднять перо сместиться на вектор(-8,2) опустить перо сместиться на вектор(0,-1) сместиться на вектор(-1,0) сместиться на вектор(0,1) сместиться на вектор(1,0) поднять перо кон

Использовать чертежникалг слон    нач    опустить перо    сместиться на вектор(2, 0)    сместиться на вектор(0, 2)    сместиться на вектор(1, 0)    сместиться на вектор(0, -2)      сместиться на вектор(2, 0)    сместиться на вектор(0, 2)    сместиться на вектор(1, 1)    сместиться на вектор(0, 2)    сместиться на вектор(1, -2)    сместиться на вектор(-1, 2)    сместиться на вектор(-1, 1)    сместиться на вектор(-3, 0)    сместиться на вектор(-1, 1)    сместиться на вектор(-1, 0)    сместиться на вектор(-1, -2)    сместиться на вектор(-1, 0)    сместиться на вектор(0, 3)    сместиться на вектор(-1, 0)    сместиться на вектор(0, -3)    сместиться на вектор(1, -1)    сместиться на вектор(2, -1)    сместиться на вектор(0,-3)    поднять перо    сместиться на вектор(1, 3)    опустить перо    сместиться на вектор(1, 1)    сместиться на вектор(0, 2)    поднять перо    сместиться на вектор(-2, -1)    опустить перо    сместиться на вектор(-0.1, 0.1)    сместиться на вектор(-0.1, -0.1)    сместиться на вектор(0.1, -0.1)    сместиться на вектор(0.1, 0.1)    поднять перо    сместиться на вектор(0, -5)кон

Program kolco; var t,d: integer; s: real; begin writeln ('введите толщину кольца'); readln (t); writeln ('введите диаметр внутреннего круга кольца'); readln (d); s: =pi*sqr(t+d/2)-pi*sqr(d/2); write ('площадь кольца равна ',s,' сантиметров квадратных'); end.