PROCEDURE fireworks(NumberOfFireWorks:INTEGER) DECLARE MidPositon: INTEGER DECLARE Top: BOOLEAN DECLARE dash,spaces,remaningspaces: STRING MidPositon ← INT((NumberOfFireWorks + 1)/2) Top ← TRUE spaces ← "" dash ← "" remaningspaces ← "" FOR Count ← 1 TO (MidPositon-2) spaces ← spaces & " " NEXT Count FOR Count ← 1 TO (NumberOfFireWorks-1) IF Count = MidPositon THEN FOR I ← 1 TO NumberOfFireWorks dash ← dash & "-" NEXT I OUTPUT dash Top ← FALSE ENDIF IF Top = TRUE THEN OUTPUT remaningspaces,'\\',spaces,"|",spaces,"/" IF LENGTH(spaces) >= 1 THEN spaces ← MID(spaces, 1, (LENGTH(spaces)-1)) remaningspaces ← remaningspaces & " " ENDIF ELSE OUTPUT remaningspaces,"/",spaces,"|",spaces,'\\' spaces ← spaces & " " remaningspaces ← MID(remaningspaces,1, (LENGTH(remaningspaces)-1)) ENDIF NEXT Count ENDPROCEDURE