DIM Nazv1$, Nazv2$DIM P1%,O1%,D1%,P2%,O2%,D2%CLSINPUT "Nazvanie 1: ", Nazv1$INPUT "Perviy: ", P1INPUT "Otvetniy: ", O1INPUT "Nazvanie 2: ", Nazv2$INPUT "Perviy: ", P2INPUT "Otvetniy: ", O2IF P1+O1>P2+O2 THEN PRINT Nazv1$ELSE IF P1+O1<P2+O2 THEN PRINT Nazv2$ ELSE IF O1-O2>P2-P1 THEN PRINT Nazv1$ ELSE IF O1-O2<P2-P1 THEN PRINT Nazv2$ ELSE PRINT "Dopolnitelnoe:" PRINT Nazv1$ INPUT D1 PRINT Nazv2$ INPUT D2 IF D1>D2 THEN PRINT Nazv1$ ELSE IF D1<D2 THEN PRINT Nazv2$ ELSE PRINT "Nichia" END IF END IF END IF END IF END IFEND IFENDПример:Nazvanie 1: APerviy: 2Otvetniy: 0Nazvanie 2: BPerviy: 0Otvetniy: 2Dopolnitelnoe:A? 3B? 3Nichia