Покупатель решил потратить в магазине м тенге без остатка. ему необходимо приобрести три вида продукции, стоимость которых составляет x, y и z тенге соответственно. вывести все возможные комбинации покупок

Задача 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.

1) Объект может быть охарактеризован структурой, его состоянием, поведением и индивидуальностью. Состояние объекта определяется перечнем всех возможных (обычно статических) свойств и текущими значениями (обычно динамическими) каждого из этих свойств. Свойства объекта характеризуются значениями его параметров. Поведение объекта описывает, как объект воздействует на другие объекты или как он подвергается воздействию со стороны других объектов с точки зрения изменения его собственного состояния и состояния других объектов. Говорят также, что поведение объекта определяется его действиями. Определенное воздействие одного объекта на другой с целью вызвать соответствующую реакцию называют операцией. В объектно-ориентированных языках программирования операции называют методами.
2) При выделения объекта и нажатия по нему правой кнопки мыши появляется меню, где мы выбираем Свойство (это позволит узнать свойства объекта).
3)Откройте свойства папки.Перейдите во вкладку «Настройка» и щелкните кнопку «Сменить значок».Укажите место поиска иконки. По умолчанию это системная библиотека Shell32.dll, но вы можете выбрать и другой источник. Кликните подходящее изображение и нажмите ОК.

Const
   g:array [1..10] of string = ('Москва','Санкт-Петербург','Новосибирск','Екатеринбург','Нижний Новгород','Казань','Самара','Омск','Челябинск','Ростов-на-Дону');
   n:array [1..10] of longint = (12198,5192,1567,1428,1268,1206,1171,1174,1182,1115);
var
   i,imax,imin:longint;
begin
  imax:=1; imin:=1;
     for i:=1 to 10 do   
          begin     
              if n[i]>n[imax] then imax:=i;        
              if n[i]<n[imin] then imin:=i;   
end;

writeln('Город с наибольшей численностью ',g[imax]);
writeln('Город с наименьшей численностью ',g[imin]);

end.