чертежник

uses Drawman;

begin
  Task('cc14');
  
  //Установка начального положения пера
  PenUp;
  ToPoint(10,1);
  PenDown;
  
  for var x:=11 downto 1 do
    for var y:=1 to 10 do
    begin
      toPoint(x-y, y+1);
      toPoint(x-2, y+1);
      


      PenDown;   
    end;
    
  // Возращение в начало координат  
  PenUp;
  ToPoint(0,0);
end.