MarKud_1

DIM A(1 TO 20) AS INTEGER, K AS INTEGER, TC AS INTEGER, I AS INTEGER
CLS
INPUT "K: ", K
FOR I = 1 TO 20
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
NEXT I
FOR I = 1 TO 20
    PRINT A(I);
    IF I <= 18 THEN
        IF A(I) + A(I + 1) + A(I + 2) = K THEN TC = TC + 1
    END IF
NEXT I
PRINT ""
PRINT "Количество троек:"; TC