program main (input, output); var gotIt: boolean; seed: integer; procedure Administer (i1l, i1r, i2l, i2r: integer; var gotIt: boolean); begin writeln (i1l*10+i1r, '+', i2l*10+i2r); gotIt := true; end; $include 'random.i'$ $include 'giveProblem.i'$ begin seed := 0; GiveLevel1Problem (gotIt); GiveLevel2Problem (gotIt); GiveLevel3Problem (gotIt); GiveLevel4Problem (gotIt); GiveLevel5Problem (gotIt); end.