1 PRINT"MAXIMUM"; 2 INPUT M 10 A=INT(5*RND(1)) 20 ON AGOTO 100,200,300,400 30 M=M*1.1 40 GOTO 10 100 X=INT(M*RND(1)) 110 Y=INT((M-X)*RND(1)) 119 PRINT 120 PRINTX;"+";Y;"="; 130 INPUT E 140 IF E=X+Y THEN GOTO 30 149 PRINT 150 PRINT"FALSCH!" 151 PRINT:PRINT 152 M=M*0.9 160 GOTO 120 200 X=INT(M*RND(1)) 210 Y=INT((M+X)*RND(1)) 219 PRINT 220 PRINTX;"-";Y;"="; 230 INPUT E 240 IF E=X-Y THEN 30 249 PRINT 250 PRINT"FALSCH!" 251 PRINT:PRINT 252 M=M*0.9 260 GOTO 220 300 X=INT(M*RND(1)) 305 IF X=0 THEN 300 310 Y=INT((M/X)*RND(1)) 319 PRINT 320 PRINTX;"*";Y;"="; 330 INPUT E 340 IF E=X*Y THEN 30 349 PRINT 350 PRINT"FALSCH!" 351 PRINT:PRINT 352 M=M*0.9 360 GOTO 320 400 Y=INT(M*RND(1)) 405 IF Y=0 THEN 400 410 Z=INT((M/Y)*RND(1)) 411 X=Z*Y 419 PRINT 420 PRINTX;"/";Y;"="; 430 INPUT E 440 IF E=X/Y THEN 30 449 PRINT 450 PRINT"FALSCH!" 451 PRINT:PRINT 452 M=M*0.9 460 GOTO 420 OK