diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..5eafa01 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +*.iml +*.exe +.idea +*.o diff --git a/biketour/tour.pas b/biketour/tour.pas index 9af11b0..44c1b8a 100644 --- a/biketour/tour.pas +++ b/biketour/tour.pas @@ -1,4 +1,4 @@ -program login; +program tour; uses md5, crt; @@ -39,7 +39,7 @@ hotels: array [0..4] of HOTEL = ( var readinput: string; i, j, distance_total, hnum1, hnum2: integer; - correct, exit: boolean; + correct, exit_loop: boolean; usersuccess: boolean = false; velocity, time: real; @@ -50,7 +50,7 @@ procedure hotelmain; var i : integer; begin - while exit = false do + while exit_loop = false do begin distance_total := 0; for i := 0 to 4 do @@ -83,9 +83,9 @@ begin ReadLn(readinput); if readinput = 'y' then - exit := true + exit_loop := true else - exit := false; + exit_loop := false; end; end;