Программа

CONST LengthData = 3 'Количество значений для h
DATA 1.5, 2.1, 2.4,  'Данные по h
CONST k = .864       'Постоянная
CONST T = 480        'Постоянная
FOR U = 13 TO 15 STEP 1  'Цикл переребора U
  CLS  'Очистка экрана
  FOR q = 1.1 TO 1.5 STEP .1 'Цикл перебора q
    RESTORE      'Установка указателя на начало в списке DATA
    FOR i = 1 TO LengthData    'Цикл перебора данных из DATA
      READ h
      PRINT "U="; U; "  q="; q; "  k="; k; "  T="; T; "  k="; k; "  h"; h; "     A="; U * T * q * k / h 'Печать исходных данных и результата
    NEXT i
  NEXT q
  PRINT "Для продолжения нажмите клавишу" 'Вывод приглашения
  buf$ = INPUT$(1)  'Чтение нажатия клавиши для остановки программы
NEXT U