Мы такие задачи решали, к сожалению, не помню. Написать на языке алгоритма или на компьютере?

Задача 3. Покупатель решил потратить в магазине М тенге без остатка. Ему необходимо приобрести три вида продукции, стоимость которых составляет X, Y и Z тенге соответственно. Вывести все возможные комбинации покупок.      var k,i,n,e:longint;
f,f1:text;
begin
assign(f,'input.in');
assign(f1,'output.out');
reset(f);
read(f,k,n);
close(f);
rewrite(f1);
if k=31 then writeln('0') else
for i:=k to 31 do
if (i=k+1) then e:=1 else
e:=e+e*2;
e:=e*n;
writeln(f1,e);
close(f1);
end.