Algoritmo Desenho Feito Professor Nava ADS Fatec Manhã

program DesenhoNava;
uses crt;
    var
      opcao      :      integer;
      linhas     :      integer;
      i          :      integer;
      j          :      integer;
begin
   repeat
   writeln('Menu');
   writeln('1 Esquerda');
   writeln('2 Direita');
   writeln('3 Centralizado');
   writeln('0 "Sair"');
   readln(opcao);

   case opcao of
   1://Processa Esquerda

     begin
     writeln('1 Opcao Esquerda');
     writeln(' Digiete o Numero de Linha');
     readln(linhas);
     for i := 1 to linhas do
     begin
     for j:=1 to i do
     begin
     write('*');
     end;
     writeln();
     end;
     end;

   2: //Processa Direita
    begin
     writeln('2 Opcao Direita');
     writeln(' Digiete o Numero de Linha');
     readln(linhas);
     for i := 1 to linhas do
     begin
      for j:= i to linhas - 1 do
       begin
       write(' ');
       end;
      begin
     for j:=1 to i do
     begin
     write('*');
     end;

     end;
       writeln();
     end;
     end;

   3:// Processa Centralizado
     begin
     writeln('3 Opcao Direita');
     writeln(' Digiete o Numero de Linha');
     readln(linhas);
     for i := 1 to linhas do
     begin
      for j:= i to linhas - 1 do
       begin
       write(' ');
       end;
      begin
     for j:=1 to (2*i)-1 do
     begin
     write('*');
     end;

     end;
       writeln();
     end;
     end;



   0:// Sai do Programa
     writeln('Tchau!');

   else
     writeln('Opcao Invalida');
   end;
   until opcao = 0;
readkey;
end.