Пишете на Qбейсике или просто на бейсике, на современном ПК.
Непринципиально,но есть важность.
Просто команда объявления переменной LET уже не применяется.
Программа верна, Но в цикле уберите все Let
У вас происходит постоянное переобъявление уже объявленных переменных.
Это можно проверить так.
После значений, результат равен отношению не сумме (как нужно),а последних вычисленных SР1Q1 и SР0Q1.