Программа на Паскале:
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.