Exercicio Desenho com Matriz Função For

         *          *****             **
       **            ****           ****
     ***              ***          *****
   ****                **         ******
 *****                  *       ********

    1                   2               3


program  ExercicioDesenhoFinal;
uses crt;
var
  opcao  :   integer;
  i      :   integer;
  j      :   integer;
  n      :   integer;
  rep    :   string[5];
begin
  begin
  repeat
   begin
  writeln('Menu');
  writeln('1 - Opcao ');
  writeln('2 - Opcao ');
  writeln('3 - Opcao ');
  write('Digite Opcao de 1 a 3 : ');
  read(opcao);

  if (opcao < 1) or (opcao > 3) then
   begin
   writeln();
   Writeln('Atencao Escolha Opcao 1,2 ou 3');
    end;
   case opcao of

       2:
       begin
 write('digiete quantidade de linha: ');
 read(n);
 writeln();
 for i := 1 to n  do
            begin
            for j := i to n do
            begin
            write(' ');
            end;
  for j :=1  to i  do
           begin
           write('*');
           end;

  writeln();
  end;
end;

    1:
     begin
 write('digiete quantidade de linha: ');
 read(n);
 writeln();

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

   3:
  begin
write('digiete quantidade de linha: ');
read(n);
writeln();
for i := 1 to n  do
           begin
   for j := i to n do
   begin
   write(' ');
   end;
        for j :=1  to (2*i)-1  do
          begin
          write('*');
          end;

 writeln();
 end;
end;
end;


   end;


    writeln();
    write('Deseja Continuar (SIM/NAO)');
    read(rep);
    writeln();

     until rep = 'NAO';
   end;

   readkey;
end.