В течении двух недель человек заключает пари на конных скачках. В первый день он делает ставку в 1 фунт. Во-второй день, чтобы возместить свой проигрыш, он делает ставку в 2 фунта, но снова проигрывает. В третий день ставку в 3 фунта. Он упрямо продолжает увеличивать на 1 фунт свою ставку, но продолжает проигрывать. Вопрос: написать программу, выводящую на экран сумму денег, проигранную этим человеком к концу второй недели- QBasic(Бейсик)

CLS
stavka=0
summa=0
FOR i=1 to 14
 stavka=stavka+1
 summa=summa+stavka
NEXT i
PRINT summa

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