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

ВХОДНЫЕ ДАННЫЕ: С клавиатуры вводится сумма, на которую предполагается произвести покупки. Затем вводятся цена и количество товара №1, товара №2 и т.д. до тех пор пока не будет исчерпана сумма денег.

Uses crt;
var s:integer;
     b,y,a:real;
begin
write(Введите сумму денег, на которую собираетесь произвести покупки: );
read(a);
while a>0 do begin
  s:=s+1;
  write(Товар №,s,: );
  read(b);
  write(Введите количество: );
  read(y);
  a:=a-(b*y);
 end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.