Вывести на экран квадраты четных чисел начиная с числа N и заканчивая числом K.(алгоритм на языке Basic)

Это QBasicCLSINPUT NINPUT KIF N>K THENPRINT "Некорректное условие"END IFFOR I = N TO KIF I MOD 2 = 0 THENC=I*IPRINT CEND IFNEXT I