QUESTION #1

PROCEDURE TwoParts()

   DECLARE TotalA: REAL
   DECLARE TotalB: REAL
   DECLARE Average: REAL
   DECLARE Zero: INTEHGER
   TotalA ← 0
   TotalB ← 0
   ZeroCount ← 0

   WHILE ZeroCount < 2
     OUTPUT “Enter a real number”
     INPUT num
     IF num = 0
       ZeroCount ← zeroCount + 1
     ENDIF

     IF ZeroCount = 0
       TotalA ← TotalA + num
     ENDIF
     IF ZeroCount = 1
        TotalB ← TotalB + num
     ENDIF
   ENDWHILE
   
   OUTPUT “Average of the two Totals =”, (TotalA + TotalB)/2
ENDPROCEDURE