Написать программу (в паскаль) по закупке продуктов в магазине на определённую

program zz1;

var a, b, c, d:integer; // задаем переменные целого типа

begin

write( введите имеющуюся сумму средств );  // вводим с клавиатуры число

read(a);

b:=1;

while a gt; 0 do //  организуем цикл, пока есть деньги

begin

writeln( введите цену продукта ,b , и количество );  

read(d,c); // вводим с клавиатуры стоимость и количество продукта

a:=a - d*c; // убавляем сумму средств

writeln( еще осталось средств = , a); // смотрим сколько еще есть средств

b:=b+1; // увеличиваем номер товара

end;

writeln( сумма исчерпана );

end.