Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину.

{Обозначим через x, k - соответствующую цену и количество товара, через p - заданную предельную сумму, через s - общую стоимость покупки. Начальное значение общей стоимости покупки (s) равно нулю. Значение предельной суммы считывается с клавиатуры. Необходимо повторять запрос цены и количества выбранного товара, вычислять его стоимость, суммировать ее с общей стоимостью и выводить результат на экран до тех пор, пока она не превысит предельную сумму р. В этом случае на экран нужно вывести сообщение о превышении: }


program prim2;
  uses crt;
  var c, k, p, s: integer;
begin
  clrscr;
{Вводим наличие денежных средств.}
  writeln('Пред. сумма - ');
  readln(p);
{Начальное значение стоимости покупки равно нулю.}
  s:=0;
  repeat
{Вводим цену товара и его количество.}
    writeln('цена тов. и его кол ');
    readln (с, k);
{Находим стоимость приобретенных товаров.}
    s:=s+c*k;
{Выводим на экран стоимость приобретенных товаров.}
    writeln('Стоимость покупки = ', s);
{Повторяем до тех пор, пока стоимость товара не превысит наличия денежных средств.}
  until s>p
  writeln('Суммарная стоимость покупки превысила предельную сумму');
  readln;
end.