procedure TForm2.Button1Click(Sender: TObject);
var a,b,c,median :integer;
begin
a:=strtoint (edit1.Text);
b:=strtoint (edit2.Text);
c:=strtoint (edit3.Text);

asm
MOV EAX, a
MOV ECX, b
MOV EDX, c

CMP EAX, ECX
JL @bgrosser
JG @agrosser
JMP @ende

@bgrosser:
CMP ECX, EDX
JL @bmedian
JG @agrosser
MOV median, EDX
JMP @ende

@agrosser:
CMP EAX, EDX
JL @amedian
JG @bgrosser
MOV median, EDX
JMP @ende

@bmedian:
MOV median, ECX
JMP @ende

@amedian:
MOV median, EAX
JMP @ende

@ende:

end;

Showmessage(InttoStr (median));
end;

end.