ребят не могу создать прграмму помогите
"
Солдат хочет купить w бананов в магазине. Ему надо заплатить k долларов за первый банан, 2k долларов — за второй и так далее (иными словами, за i-й банан надо заплатить i·k долларов).

У него есть n долларов. Сколько долларов ему придется одолжить у однополчанина, чтобы купить w бананов?"
k=3 стоймость банана
w=4 хочет купит
n=17 у него 17 долларов
z=?сколько он должен взять в долг

Программа на Паскале:vark,w,n,z,i : integer;beginwrite('Введите стоимость первого банана: ');readln(k);write('Введите количество бананов, которые хочет купить солдат: ');readln(w);write('Сколько всего денег у солдата? ');readln(n);z:=0;for i:=1 to w dobeginz:=z+(i*k);end;z:=z-n;write('Чтобы купить бананы, солдату не хватает ',z,' долларов');end.