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