{
  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);
   for i := 1 to n do
   begin
      for j := 1 to n do
	 if i = j then
	    write (':')
	 else
	    write ('+');
      writeln;
   end;
end.