DIM kJ AS INTEGER INPUT S INPUT k IF 5 1 2 = k THEN PRINT "ДА" ELSE PRINT "HET" END IF

Не понимаю заданного вами кода на языке программирования. Чтобы помочь, мне нужно понимать конкретный вопрос или проблему, с которой вы сталкиваетесь.