По оканчании каждой недели буратино приносит папе карло свой заработок в х сельди. карло за следующую неделю тратит ровно половину имевшихся на её начало денег. в начале срока у них было y сольди. составить программу, которая выводила бы в виде таблицы номера недель ( от 1 до 12) и суммы, имевшиеся у буратино и карло на начало и конец недели.
выполнить программу для х=20, y=1000; x=20,y=0; x=1000,y=20.

Ну, поскольку уточнения по задаче не получил, буду считать, что цифра 1 может встречаться ровно два раза в КАЖДОЙ комбинаций (в противном случае ответ, конечно, будет другой):

Всего используется 4 знака.Нормализуем последовательность к нулю , от этого количество комбинаций не изменится:
было : 111111 - 44444
стало:  00000 - 33333

Исключаем из общего количества комбинаций комбинации с двумя единицами (всего 9):
11ххх 1х1хх 1хх1х 1ххх1
х11хх х1х1х х1хх1
хх11х хх1х1
ххх11
значимыми остаются только 3 разряда из 5.
333 в 4-ричной системе счиления равно 63 в 10-ричной. - именно столько комбинаций будет при условии, что  два разряда выставлены в единицы.
9х63=563 - столько комбинаций будет всего.

Program n1;
const maxm = 50;     
         maxn = 50;
var a:array[1..maxm,1..maxn] of integer;   
      min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do 
 for j:=1 to m do   
  begin   
   read(a[i,j]);
   if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
   if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;   
  end;

for j:=1 to m do 
begin 
 x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x; 
end;

writeln('Матрица после преобразования:');
for i:=1 to n do 
begin 
 for j:=1 to m do 
  write(a[i,j],' '); 
 writeln; 
end;

end.