10 RЕМ **************************************************
20 REM * ПРОГРАММА ПРОВЕРКИ ЗНАНИЙ АРИФМЕТИКИ *
30 REM * У УЧЕНИКОВ МЛАДШИХ КЛАССОВ *
40 RЕМ **************************************************
50 CLS: PRINT: PRINT
60 INPUT "КАК ТЕБЯ ЗОВУТ ": I$: РRINT: РRINT
70 PRINT I$: " , Я ХОЧУ ПРОВЕРИТЬ ТВОИ ЗНАНИЯ АРИФМЕТИКИ."
80 PRINT "Я БУДУ ПРЕДЛАГАТЬ ПРИМЕРЫ, А ТЫ ПОСТАРАЙСЯ ИХ РЕШИТЬ."
90 PRINT " ЕСЛИ ГОТОВ, НАЖМИ НА ЛЮБУЮ КЛАВИШУ."
100 A1 = USR(-2045)
110 X = l: W = 0
120 CLS: PRINT: PRINT
130 PRINT TAB(15): "ПОМНИ !"
140 PRINT "ЕСЛИ ПРИ ОТВЕТЕ ОШИБЕШЬСЯ И СЛУЧАЙНО НАЖМЕШЬ"
150 PRINT "НЕ ТУ КЛАВИШУ, ТО НАЖМИ КЛАВИШУ "Я" ЗАТЕМ НУЖНУЮ."
170 PRINT "ПОСЛЕ НАБОРА ОТВЕТА НАЖМИ КЛАВИШУ "BK": PRINT
180 R = ABS(INT(RND(1)*20 - 10))
190 IF R = 0 OR R = l THEN 180
200 Q = ABS(INT(RND(1)*20 -10))
210 IF Q = 0 OR Q = 1 THEN 200
220 KL = INT(RND(1) * 5)
230 IF KL = 0 ТHEN 220
240 ON KL GOSUB 510, 550, 600, 630
250 PRINT: PRINT I$: " СКОЛЬКО БУДЕТ "; P; U$; R; "=";
260 INPUT D
270 IF D = Q ТHEN 370
280 PR I NT: PR I NT " НЕПРАВИЛЬНО !"
290 PRINT "ТЕБЕ, "; I$; " , НАДО ПОДУМАТЬ."; PRINT
300 PRINT I$; " СКОЛЬКО БУДЕТ "; P; U$; R; "=";
310 INPUT D: PRINT
320 IP D = Q ТHEN 370
330 РRINT "ПЛОХО, "; I$; " ТЫ НЕ СМОГ РЕШИТЬ ЭТОТ ПРИМЕР."
340 PRINT " ВОТ ПРАВИЛЬНОЕ PЕШЕНИЕ "
350 PRINT TAB(8); P; U$; R; "="; Q: PRINT
360 GOTO 390
370 W =W +1
380 PRINT "МОЛОДЕЦ "; I$; " ПРАВИЛЬНО. ": PRINT
390 IF X = 10 THEN 450
400 X = X + 1
410 PRINT "РЕШИ ЕЩЕ ПРИМЕР."
420 PRINT "ЕСЛИ ГОТОВ, TO НАЖМИ ЛЮБУЮ КЛАВИШУ"
430 A1 = USR(-2045)
440 GOTO 120
450 PRINT: PRINT
460 IF W = 10 THEN РRINT "МОЛОДЕЦ, "; I$; ", ТЫ ЗНАЕШЬ АРИФМЕТИКУ НА 5!"
470 IF W = 8 OR W = 9 THEN PRINT "МОЛОДЕЦ, "; I$; ", ТЫ ЗНАЕШЬ АРИФМЕТИКУ НА 4!"
480 IF W = 8 OR W = 7 THEN PRINT I$; ", ТЫ ЗНАЕШЬ АРИФМЕТИКУ НА 3!"
490 IF W < 6 THEN PRINT I$; ", ТЫ ПЛОХО ЗНАЕШЬ АРИФМЕТИКУ !"
500 STOP
510 U$ = " ПРИБАВИТЬ "
520 G = G * 3: R = R * 3
530 P = G: Q = G + R
540 RETURN
550 U$ = " ОТНЯТЬ "
560 IF G = R THEN G = G +3
570 G = G * 3: R = R * 3
580 IF G < R THEN Q = G: G = R: R = Q
590 P = 0: Q = G - R: RETURN
600 D$ " УМНОЖИТЬ НА "
610 P = 0: Q = G * R
620 RETURN
630 U$ = " PAЗДЕЛИТЬ HA "
640 P = G * R: Q = R
650 RETURN

Это блять программо..