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

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

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

uses crt;varsum,x,itog: real;i,y: integer;begini:=1;itog:=0;write ('Start summa: ');readln (sum);while (itog<sum) dobeginwrite ('¹',i,': ');i:=i+1;readln (x);write ('Kol-vo: ');readln (y);itog:=itog+y*x;end;if (itog>sum) thenwriteln ('Itog: ',itog-y*x)elsewriteln ('Itog: ',itog);end.