xtended Это QBasic
CLS
INPUT N
INPUT K
IF N>K THEN
PRINT "Некорректное условие"
END IF
FOR I = N TO K
IF I MOD 2 = 0 THEN
C=I*I
PRINT C
END IF
NEXT I