Пишу на QBasic CLS INPUT N FOR I = 1 TO N PRINT "Введите число" INRUT A IF A>0 AND A MOD 10 = 6 THEN K=K+1 S=S+A END IF NEXT I PRINT K PRINT S