{ Read the file INCLUDE to learn how to include this file in your program } function RandomInt (k1, k2: integer): integer; begin RandomInt := k1 + trunc ((k2-k1+1)*random(seed)); end; procedure GiveLevel1Problem (var rightAnswer: boolean); var u1, u2: integer; begin u1 := RandomInt (1, 8); u2 := RandomInt (1, 9-u1); Administer (0, u1, 0, u2, rightAnswer); end; procedure GiveLevel2Problem (var rightAnswer: boolean); var u1, u2: integer; begin u1 := RandomInt (2, 9); u2 := RandomInt (10-u1, 9); Administer (0, u1, 0, u2, rightAnswer); end; procedure GiveLevel3Problem (var rightAnswer: boolean); var u1, u2, t, t1, t2: integer; begin u1 := RandomInt (1, 8); u2 := RandomInt (1, 9-u1); t := RandomInt (1, 9); if RandomInt (1, 2) = 1 then begin t1 := t; t2 := 0; end else begin t1 := 0; t2 := t; end; Administer (t1, u1, t2, u2, rightAnswer); end; procedure GiveLevel4Problem (var rightAnswer: boolean); var u1, u2, t, t1, t2: integer; begin u1 := RandomInt (2, 9); u2 := RandomInt (10-u1, 9); t := RandomInt (1, 8); if RandomInt (1, 2) = 1 then begin t1 := t; t2 := 0; end else begin t1 := 0; t2 := t; end; Administer (t1, u1, t2, u2, rightAnswer); end; procedure GiveLevel5Problem (var rightAnswer: boolean); var u1, u2, t1, t2: integer; begin u1 := RandomInt (1, 8); u2 := RandomInt (1, 9-u1); t1 := RandomInt (1, 8); t2 := RandomInt (1, 9-t1); Administer (t1, u1, t2, u2, rightAnswer); end;