{"ref":"master","ref_type":"branch","master_branch":"master","description":"Program progTriang ; var i, j, altura, espaco, desenho : integer; procedure aster (i, j, altura, espaco, desenho : integer); Begin espaco := 0; desenho := 0; altura := 0; while ( (altura <= 0) or (altura >= 22) ) do begin write('Altura do triangulo: '); readln(altura); end; writeln; for i := 1 to altura do begin for j := 1 to altura - 1 - espaco do write(' '); for j := 1 to 1 + desenho do write('*'); espaco := espaco + 1; desenho := desenho + 2; writeln; end; readkey; end; procedure sharp ( a: integer;s:char); begin aster (i, j, altura, espaco, desenho); end; procedure cifrao ( a : integer;s:char); begin aster (i, j, altura, espaco, desenho); end; begin clrscr; aster(i, j, altura, espaco, desenho,'*'); writeln; sharp(i, j, altura, espaco, desenho,'#'); writeln; cifrao(i, j, altura, espaco, desenho,'$'); writeln; end.","pusher_type":"user"}