Dim RaceMinutes as integer
dim RaceSeconds as integer
Dim RaceTimeInSeconds as integer
dim PersonalBestTime as integer
Console.WriteLine("Please input the race time as hours, minutes and seconds.")
RaceHours=Console.ReadLine()
RaceMinutes=Console.ReadLine()
RaceSeconds=Console.ReadLine()
RaceTimeInSeconds=RaceHours*3600 + RaceMinutes*60 + RaceSeconds
Console.WriteLine(RaceTimeInSeconds)
If RaceTimeInSeconds=PersonalBestTime Then
Console.WriteLine("Equals personal best time.")
Elseif RaceTimeInSeconds > PersonalBestTime Then
Console.WriteLine("Personal best time is unchanged.")
Console.WriteLine("New personal best time.")