20 натуральные числа n и m и угнанный массив размером nm составить программу ,которая находит количество нечетных элементов 1 последнего стобца

ответ: 32+5*64+10*128 = 32+320+1280   = 1632

- количество таких слов 2^5 = 32

y - количество таких слов 2^4*4 = 16*4 = 64

xxxyx - количество таких слов 2^4*4  =  16*4 = 64

xxyxx - количество таких слов 2^4*4  =  16*4 = 64

xyxxx - количество таких слов 2^4*4  =  16*4 = 64

y - количество таких слов 2^4*4  =  16*4 = 64

xxxyy - количество таких слов 2^3*4^2  =  8*16 = 128

xxyyx - количество таких слов 2^3*4^2  =  8*16 = 128

xyyxx - количество таких слов 2^3*4^2  =  8*16 = 128

yyxxx - количество таких слов 2^3*4^2  =  8*16 = 128

xxyxy - количество таких слов 2^3*4^2  =  8*16 = 128

xyxyx - количество таких слов 2^3*4^2  =  8*16 = 128

yxyxx - количество таких слов 2^3*4^2  =  8*16 = 128

xyxxy - количество таких слов 2^3*4^2  =  8*16 = 128

yxxyx - количество таких слов 2^3*4^2  =  8*16 = 128

yxxxy - количество таких слов 2^3*4^2  =  8*16 = 128

1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.