В первый час работы, рабочий изготавливает 25 деталей, за последующий час На 3 детали больше, чем за предыдущий! Подсчитать сколько рабочий изготовит деталей за 8 часов работы — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

CLS
k = 25
s = 0
FOR i = 1 TO 8
    s = s + k
    k = k + 3
NEXT i
PRINT "kolichestvo detaley="; s

Тестирование выполнено в программе QB64 ( Скачать )