Программа

'Таблица загрузки вагонов в составе
CONST NormalCharge = 64 'Грузоподъемность вагона
CONST QuantityCar% = 10 'Количество вагонов в составе
DIM Train(QuantityCar) AS SINGLE  'Массив поезда
DIM i AS INTEGER 'Счетчик
PRINT 'Пропуск строки
FOR i = 1 TO QuantityCar 'Верхняя граница цикла ввода закрузки состава
  PRINT " Введите загрузку "; i; "-го вагона ";
  'Вывод приглашения ввести загрузку вагона
  INPUT "", Train(i) 'Ввод загрузки вагона
NEXT i 'Нижняя граница цикла ввода загрузки состава
PRINT 'Пропуск строки
'Вывод шапки таблицы:
PRINT "┌──────────────┬──────────┬──────────┐"
PRINT "│ Номер вагона │ Загрузка │ Недогруз │"
PRINT "├──────────────┼──────────┼──────────┤"
FOR i = 1 TO QuantityCar 'Верхняя граница цикла обработки и вывода информации
  IF Train(i) < NormalCharge THEN 'Если загрузка i-го вагона меньше нормы, то
    PRINT USING "│      ##      │"; i; 'Печать номера вагона
    PRINT USING "  ##.##   │"; Train(i); 'Печать загрузки
    PRINT USING "  ##.##   │"; NormalCharge - Train(i) 'Печать недогруза
  END IF 'Конец оператора IF
NEXT i 'Нижняя граница цикла обработки и вывода информации
PRINT "└──────────────┴──────────┴──────────┘" 'Вывод нижней части таблицы