{
  Faz um desenho semelhante a

    + 
   -+-
  --+--
 ---+--- 

 considerando um numero de linhas fornecido pelo usuario.

}
program arvore;
var
   i, j, n	: integer;
begin
   write('N: ');
   read(n);

   for i:= 1 to n do
   begin
      for j := 1 to n - i do
	 write(' ');
      for j := 1 to i - 1 do
	 write('-');
      write('+');
      for j := 1 to i - 1 do
	 write('-');
      writeln;
   end;      
end.