Desenho Com ' * ' Função For Matriz

// Exercicio Feito Por William Silva 1º ADS Fatec Mogi Mirim

program Project1;

var

  numero : integer;

  opcao : integer;

  f1 : integer;

  f2 : integer;

  f3 : integer;

  estrela : string[30];

  den : string[3];

  numero2 : integer;

begin

  repeat

  writeln('Digite uma opcao:');

  writeln('1-Esquerda:');

  writeln('2-Direita:');

  writeln('3-centro:');

  readln(opcao);

  estrela := '*';

  case opcao of //case1

  1 : begin//1

   writeln('Digite o numero de linhas');

   readln(numero);

    for f1:= 1 to numero do

             begin//2

             for f2:= f1 to numero -1 do

                 begin//3

                 write();

                 end;//3

                     for f2 := 1 to f1 do

                     begin//4

                     write(estrela);

                     end;//4

                     writeln();

             end;//2

    end;//1

  2 : begin//1

      writeln('Digite o numero de linhas');

      readln(numero);

                     for f1:= 0 to numero do

                     begin//2

                          for f2:= f1 to numero -1 do

                                 begin//3

                                 write(' ');

                                 end;//3

                                        for f2 := 1 to f1 do

                                            begin//4

                                            write(estrela);

                                            end;//4

                                            writeln();

                      end;//2

       end;//1

  3: Begin//1

     writeln('Digite o numero de linhas');

     readln(numero);

     numero2 := numero;

               for f1 :=1 to numero do

                   begin//2

                    for f2:=f1 to numero do

                        write(' ');

                         begin//3

                             if (f1 = 1) then

                             begin//4

                             for f3 := f2 to numero do

                                write(estrela);

                                end//4

                                      else

                                      begin//5

                                          for f3 := f2 to numero2 +2 do

                                          write(estrela);

                                          numero2 := numero2 +2;

                                      end;//5

                          end;//3

                         begin//6

                          for f2:=f1 to numero do

                        write(' ');

                          end;//6

                         writeln();

                    end;//2

                   end;//1

  else

writeln('Digite uma Operacao valida');

writeln();

end;

        writeln('Deseja continuar SIM/NAO? ');

        readln(den);

        den :=upcase(den);

        until(den = 'NAO');

        writeln('Acabou a Brincadeira');

  readln();

end.