Не могу понять, что не так. Написала программу, но в конце не пишет, Как узнать сколько в итоге арбузов куплено и за Как узнать сколько. посчитайте, прошу ((( ​Вот сама программа:var Ves, Sum, K:integer; BeginRandomize;Sum:=0 ; K:=0;Repeat Ves:=Random(7)+2;If Sum+Ves*15<=1000 then beginWriteln('Арбуз весом ', Ves, 'кг, стоимость- ', Ves*15, 'рублей');K:=K+1;Sum:=Sum+Ves*15;End;until 1<0;Writeln('Куплено ', K, 'арбузов на сумму ', Sum, 'рублей');End.