var ans : string (1)
var name : string
var score : int := 0

put "Welcome To Milan's Trivia Program"
delay (1000)
put "You Will Be Asked a series of questions and depending on how many you get right"
delay (1000)
put "you will earn a certain amount of money."
delay (1000)
put "The maximum amount of money which you can earn is $10"
delay (1000)
put "Good Luck To the Participant"
delay (1000)
put "Please Enter Your Name : " ..
get name
delay (1000)
put "Please press the Any key to start the Game, ", name
Input.Pause
cls

put "Who won the Stanley Cup in 2006?"
put "A) The Carolina Hurricanes"
put "B) The Edmonton Oilers"
put "C) The Colorado Avalanche"
getch (ans)
cls
if ans = "a" or ans = "A" then
    put "You are correct."
    score += 1
else
    put "You are Incorrect."
end if
put "You have $", score
put "Push Any Key to continue, ", name
Input.Pause
cls


put "Who was the original lead singer of the band Pink Floyd?"
put "A) Roger Waters"
put "B) David Gilmour"
put "C) Syd Barrett"
getch (ans)
cls
if ans = "c" or ans = "C" then
    put "You are correct."
    score += 1
else
    put "You are Incorrect."
end if
put "You have $", score
put "Push Any Key to continue, ", name
Input.Pause
cls


put "Who won Superbowl I?"
put "A) The Kansas City Chiefs"
put "B) The Green Bay Packers"
put "C) The Baltimore Colts"
getch (ans)
cls
if ans = "b" or ans = "B" then
    put "You are correct."
    score += 1
else
    put "You are Incorrect."
end if
put "You have $", score
put "Push Any Key to continue, ", name
Input.Pause
cls