Создать файл с произвольным именем. Записать в файл 10 произвольных чисел из интервала (N,M), введенных пользователем.Создать второй файл Б с именем содержащим имя первого файла с добавлением символа «1» в конце имени. Прочитать из первого файла и записать во второй все нечетные числа — QBasic(Бейсик)

INPUT "vvedite nijnyuyu granicu m=", m
INPUT "vvedite verhnyuyu granicu n=", n

OPEN "file.txt" FOR OUTPUT AS #1
FOR i = 1 TO 10
    PRINT "vvedite chislo iz intervala ["; m; ","; n; "]"
    INPUT "", c
    PRINT #1, c
NEXT
CLOSE
OPEN "file.txt" FOR INPUT AS #2
OPEN "file1.txt" FOR OUTPUT AS #3
FOR i = 1 TO 10
    INPUT #2, c
    IF c MOD 2 <> 0 THEN PRINT #3, c
NEXT
CLOSE