{
  Programa para fazer um desenho com : e + de acordo
  com um numero de linhas fornecido pelo usuario.
  Para N = 5 o resultado sera':

     :++++ 
     +:+++ 
     ++:++ 
     +++:+ 
     ++++: 
}

program diagonal;
var
   i, j, n : integer;
begin
   write('N: ');
   read(n);
   i := 1;
   while i <= n do
   begin
      j := 1;
      while j <= n do 
      begin
	 if i = j then
	    write (':')
	 else
	    write ('+');
	 j := j + 1;
      end;
      writeln;
      i := i + 1;
   end;
end.