используя вспомогательные алгоритмы запрограммируйте

x,y - точки начала фигуры, lineLong - длина одного из отрезка, time - количество фигур(вверх,вправо,вниз,вправо).

program drawFigure;uses  graph;var  gD,gR:integer; procedure drawIt(x,y,lineLong,time:word);  var   ci:byte;  begin   moveTo(x,y);   lineTo(GetX+lineLong,GetY);   for ci:=1 to time do    begin     lineTo(GetX,GetY-lineLong); lineTo(GetX+lineLong,GetY);     lineTo(GetX,GetY+lineLong); lineTo(GetX+lineLong,GetY);             end;  end;begin initgraph(gD,gR,''); drawIt(80,80,50,2); readln; closeGraph;end.