var average : real := 0
var counter : int := 1
var numberOfQuizzes : int

put "How many quizzes are you marking? " ..
get numberOfQuizzes

var quizArray : flexible array 1 .. numberOfQuizzes of real

for i : 1 .. upper(quizArray)
    put "Quiz Score ", i , " " ..
    get quizArray(i)
end for

loop
    if quizArray(counter) < 75 then
        quizArray(counter) := upper(quizArray)
        new quizArray, upper(quizArray) - 1
    end if
    counter := counter + 1
    exit when counter >= numberOfQuizzes
end loop

for i : 1 .. upper(quizArray)
    average := average + quizArray(i)
end for

if upper(quizArray) >= 1 then
    put "The average of passing scores is ", average / upper(quizArray), "%"
else
    put "There were no passing scores :("
end if