Цикл типа «ПОКА»
CLS
Очистка экрана от предыдущих значений
REM Сумма
Название программы
INPUT «Введите x»; x
Ввод исходных данных
IF x=4 THEN GOTO 1 ELSE GOTO 2
Проверка знаменателя на 0, если знаменатель равен нулю, то осуществляется переход к завершению программы, если не равен нулю– то к строке начала цикла
2: S=0: k=4
Начальное значение суммы и параметра цикла
WHILE k
Начало цикла «ПОКА»
S=S+x^2*(k+1)/(x-4)
Вычисление промежуточной суммы
k=k+1
Изменение параметра цикла с указанием шага параметра
WEND
Завершение цикла «ПОКА»
z=31*x^2+5*S
Вычисление итоговой суммы
PRINT “Сумма z=”; z
Вывод искомой суммы
1:END
Завершение программы