program Goods;
var x,k,p,s: word;
begin
writeln('Введите предельную сумму:');
readln(p);
s:=0;
while s<=p do
begin
writeln('Введите стоимость вещи:');
readln(x);
writeln('Введите количество:');
readln(k);
s:=s+x*k;
writeln('Сумма затрат:', s);
writeln('Предел суммы:', p)
end;
writeln('Вы превысили сумму покупок')
end.