посмотрите пожалуйста програмку написанную во вложенном файле. Почему то не работает

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