; допустим, CX - размер, SI - указатель на массив...
; АХ - возвращаемое значение. Числа - 16 бит.
BigOdd proc
  xor  bx, bx
findloop:
  lodsw
  test ax, 1
  jz @F
  cmp ax, bx
  jl @F
  mov bx, ax
@@:
  loop findloop
  mov ax, bx
  ret
BigOdd endp

procedure check(n:longint):boolean;
var
  a:array[0..9] of byte;
  i:integer;
begin
  for i:=0 to 9 do a[i]:=0;
  while n>0 do begin
        inc(a[n mod 10]);
        n:=n div 10;
  end;
  check:=true;
  for i:=0 to 9 do
    if a[i]>1 then begin
       check:=false;
       break;
   end;
end;

if check(a[i]):= true then writeln(file,a[i]);

var
  i,j:integer;
  a:array[1..6,1..6] of integer;
begin
  writeln;
  for i:=1 to 6 do
    for j:=1 to 6 do begin
         write('a[',i,',',j,']=');
         readln(a[i,j]);
    end;
  writeln('P=',a[6,1]*a[5,2]*a[4,3]*a[3,4]*a[2,5]*a[1,6]);
  readln;
end.

var
  i,j:integer;
  a:array[1..6,1..6] of integer;
begin
  randomize;
  for i:=1 to 6 do begin
    for j:=1 to 6 do begin
         a[i,j]:=random(11)-5;
         write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  writeln('P=',a[6,1]*a[5,2]*a[4,3]*a[3,4]*a[2,5]*a[1,6]);
  readln;
end.

#include"stdio.h"
#include"stdlib.h"
#include"string.h"

unsigned long * nr_files;
static char * load_buf,* write_buf;
struct file_desc
{
unsigned long pos,size;
unsigned long zpad[4];
};

static struct file_desc * fdes;
static char * nametable_ptr;

void extract_file(int n,char * name)
{
unsigned long pos,size;
FILE * plk;
pos=fdes[n].pos;
size=fdes[n].size;
printf("%u: %s: pos=%u size=%n",n,name,pos,size);
write_buf=malloc(size);
memcpy(write_buf,load_buf+pos,size);
plk=fopen(name,"wb");
fwrite(write_buf,1,size,plk);
fclose(plk);
}

int main(int argc,char * argv[])
{
FILE * f;
int sz;
char * cn;
f=fopen(argv[1],"rb");
if(!f)
{
printf("Unable to open input filen");
return 0;
}
fseek(f,0,SEEK_END);
sz=ftell(f);
fseek(f,0,SEEK_SET);
if(!(load_buf=malloc(sz)))
{
printf("Unable to allocate memory for
inputn");
return 0;
}
fread(load_buf,1,sz,f);
printf("file_size=%un",sz);
nr_files=(unsigned long *)(load_buf+0);
fdes=(struct file_desc *)(load_buf+4);
nametable_ptr=load_buf+4+((*nr_files)*sizeof(struct file_desc))+2;
printf("nr_files=%un",(*nr_files));
cn=nametable_ptr;
for(sz=0;sz<(*nr_files);sz++)
{
nametable_ptr=cn+strlen(cn)+1;
extract_file(sz,cn);
cn=nametable_ptr;
}
free(load_buf);
return 0;
}