Создайте программу(письменно): у бабушки в шкафу спрятана банка с вареньем. в банке 650 г варенья. внук коля разведал, где банка, и начав с одной ложки, каждый день сьедал на 1 ложку варенья больше. сколько граммов варенья в банке обнаружит бабушка через n дней, если известно, что в каждую ложку, съеденную внуком, помещается 5 г варенья? ) буду

Var v,n,d:integer;
begin
v:=650;
write ('Введите количество дней: ');
readln (n);
for d:=1 to n do v:=v-5*d;
if v>0 then writeln ('Через ', n,' дней бабушка обнаружит ',v, ' граммов варенья в банке')
else writeln ('Через ', n,' дней бабушка обнаружит пустую банку')
end.