Составьте программу, которая создает файл, состоящий из неопределенного количества значений типа integer. После записи выведите файл на экран и уничтожьте файл — QBasic(Бейсик)

DEFINT A-Z
RANDOMIZE TIMER
  CLS
  Fr = FREEFILE
OPEN "B", Fr, "File.dat"
  Dl = RND * 100   'Длина файла
  FOR i = 1 TO Dl
    a = (RND * 65535) - 32768
    PUT #Fr, , a
  NEXT
CLOSE #Fr
OPEN "B", #Fr, "File.dat"
  DO
    GET #Fr, , a
    IF EOF(Fr) THEN EXIT DO
    PRINT a;
  LOOP
CLOSE #Fr
KILL "File.dat"