Не могу создать прграмму " солдат хочет купить w бананов в магазине. ему надо заплатить k долларов за первый банан, 2k долларов — за второй и так далее (иными словами, за i-й банан надо заплатить i·k долларов). у него есть n долларов. сколько долларов ему придется одолжить у однополчанина, чтобы купить w бананов? " k=3 стоймость банана w=4 хочет купит n=17 у него 17 долларов z=? сколько он должен взять в долг
var
k,w,n,z,i : integer;
begin
write('Введите стоимость первого банана: ');
readln(k);
write('Введите количество бананов, которые хочет купить солдат: ');
readln(w);
write('Сколько всего денег у солдата? ');
readln(n);
z:=0;
for i:=1 to w do
begin
z:=z+(i*k);
end;
z:=z-n;
write('Чтобы купить бананы, солдату не хватает ',z,' долларов');
end.