locate (1, 15)
put "Question and Answer Game"
locate (5, 15)
put "Made by: bc123"



put "All answers will have no capitals and no spaces"
var n : string


put "which of the following is incorrect?"
put "a  I love bacon"
put "b  I hate school"
put "c  I am newbie at coding"
put "d  compsci.ca is useless"
get n
if n = "d" then
    put "correct"
else
    put "wrong"
    quit
end if

put "Question 2"
var a : string


put "what is this program called?"
get a
if a = "turing" then
    put "correct"
else
    put "wrong"
    quit
end if

put "Question 3"
var b : string


put "we are in the year...?"
get b
if b = "2009" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 4"
var c : string


put "What is the username of the creator of this game?"
get c
if c = "bc123" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 5"
var d : string


put "turing was named after who?"
get d
if d = "alanturing" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 6"
var e : string


put "what color is the sky?"
get e
if e = "blue" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 7"
var f : string


put "Infants have more or less bones then adults?"
get f
if f = "more" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 8"
var g : string


put "how much oceans are in the world?"
get g
if g = "4" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 9"
var h : string


put "What is the tallest mammal on the planet?"
get h
if h = "giraffe" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 10"
var i : string


put "what mammal is the longest lived?"
get i
if i = "human" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 11"
var j : string


put "what is the largest continent on earth?"
get j
if j = "asia" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 12"
var k : string


put "what percentage of the earth is covered in water?"
get k
if k = "70" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 13"
var l : string


put "what continent has the most countries?"
get l
if l = "africa" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 14"
var m : string


put "a baseball field is approximately what size?"
put "1"
put "2"
put "3"
put "4"
get m
if m = "2" then
    put "correct"
else
    put "wrong"
    quit
end if


put "Question 15"
var u : string


put "how many games do Major League baseball teams play during the"
put " regular season? "
put "142"
put "152"
put "162"
put "172"
get u
if u = "162" then
    put "correct"
else
    put "wrong"
    quit
end if

put "You are good at this! I hope you didnt search through code"
put "to find the answer."

put "if you would like me to add questions onto here, PM me on compsci.ca"
% Made by bc123
put "made by bc123"
put "also if you get any mroe questions please tell me to add them TY"