Вычислить значение выражения - QBasic (27300)

Формулировка задачи:

Даны массивы Т(10) и Р(10).Составить программу для вычисления значения D= (tk-pk)^2,Помогите пожалуйста!!!!!!!!

Решение задачи: «Вычислить значение выражения»

Листинг программы

CLS
RANDOMIZE TIMER
CONST n = 10
DIM T(1 TO n)
DIM P(1 TO n)
 
FOR i = 1 TO n
   T(i) = 10 * RND
   P(i) = 10 * RND
   PRINT USING " #.###"; T(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO n
   PRINT USING " #.###"; P(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO n
   D = D + (T(i) - P(i)) ^ 2
NEXT i
 
PRINT "D ="; D
END

Объяснение кода листинга программы

CLS — очистка экрана
RANDOMIZE TIMER — инициализация генератора случайных чисел
CONST n = 10 — определение константы n со значением 10
DIM T(1 TO n) — объявление массива T размером n
DIM P(1 TO n) — объявление массива P размером n
FOR i = 1 TO n — начало цикла, который выполняется n раз
T(i) = 10 * RND — присваивание элементу массива T значения, равного 10 умноженному на случайное число от 0 до 1
P(i) = 10 * RND — присваивание элементу массива P значения, равного 10 умноженному на случайное число от 0 до 1
PRINT USING #.###; T(i); — печать значения элемента массива T с форматированием в виде 3 знаков после запятой
NEXT i — переход к следующему элементу цикла
PRINT : PRINT — печать двух символов новой строки
FOR i = 1 TO n — начало второго цикла, который также выполняется n раз
PRINT USING #.###; P(i); — печать значения элемента массива P с форматированием в виде 3 знаков после запятой
NEXT i — переход к следующему элементу цикла
PRINT : PRINT — печать двух символов новой строки
FOR i = 1 TO n — начало третьего цикла, который также выполняется n раз
D = D + (T(i) — P(i)) ^ 2 — прибавление квадрата разности текущего значения в массиве T и P к переменной D
NEXT i — переход к следующему элементу цикла
PRINTD =; D — печать значения переменной D
END — завершение программы