var score: int
var question, answer: string %Hold the lines to the data file.
var inp : int %Turing requires this integer variable
score := 0
open : inp, "provinces.txt", get %open the file provinces.txt for reading
loop
     exit when eof(inp) %Exit when the end-of-file is reached
     get: inp, question %Read the [ctr]th line from the data file, and store it in the string variable question
     get: inp, answer
     put "The capital of ", question ," is ", answer ,"."
end loop>