QBasic. Помогите, пожалуйста! . Программа запрашивает названия 2-ух футбольных команд,

И опять Базик)))

дааа)) просто надо написать 24 программы, и у меня теснее мозг бурлит их писать, потому возлагаю надежду на то, что мне посодействуют хотя бы немного из их написать))

Они в печатном виде? Ну, нельзя ли их сюда все сходу скинуть?

Можно)

DIM Nazv1, Nazv2
DIM P1%,O1%,D1%,P2%,O2%,D2%

CLS
INPUT "Nazvanie 1: ", Nazv1
INPUT "Perviy: ", P1
INPUT "Otvetniy: ", O1
INPUT "Nazvanie 2: ", Nazv2
INPUT "Perviy: ", P2
INPUT "Otvetniy: ", O2
IF P1+O1gt;P2+O2 THEN
   PRINT Nazv1
ELSE
   IF P1+O1lt;P2+O2 THEN
      PRINT Nazv2
   ELSE
      IF O1-O2gt;P2-P1 THEN
         PRINT Nazv1
      ELSE
         IF O1-O2lt;P2-P1 THEN
            PRINT Nazv2
         ELSE
            PRINT "Dopolnitelnoe:"
            PRINT Nazv1
            INPUT D1
            PRINT Nazv2
            INPUT D2
            IF D1gt;D2 THEN
               PRINT Nazv1
            ELSE
               IF D1lt;D2 THEN
                  PRINT Nazv2
               ELSE
                  PRINT "Nichia"
               END IF
            END IF
         END IF
      END IF
   END IF
END IF
END

Пример:

Nazvanie 1: A
Perviy: 2
Otvetniy: 0
Nazvanie 2: B
Perviy: 0
Otvetniy: 2
Dopolnitelnoe:
A
? 3
B
? 3
Nichia