Нужно составить в паскалеАБС программу чтобы получился рисунок.рисунок №70

Program prog1;uses GraphABC;var x,y,x1,y1,i:longint;beginx:=10;y:=80;x1:=80;y1:=10;setwindowsize(100,200);for i:=0 to 5 dobeginline(100,y1,0,x1);line(0,x,100,y);x:=x+30;y:=y+30;x1:=x1+30;y1:=y1+30;end;end.