Nếu có sai thì nói mình nhé.

======================

program Hello;
uses crt;
var a,b,c,t: longint;
begin
    clrscr;
    readln(a,b,c);
    if a > b then 
        begin
            t:=a;
            a:=b;
            b:=t;
        end;
    if a > c then
        begin
            t:=a;
            a:=c;
            c:=t;
        end;
    if b > c then 
        begin
            t:=b;
            b:=c;
            c:=t;
        end;
    writeln(b);
end.

uses crt;
var a,b,c:longint;
function ss(a,b,c:longint):boolean;
begin
    if (a>=b) and (b>=c) then exit(true);
    if (c>=b) and (b>=a) then exit(true);
    exit(false);
end;
begin
    clrscr;
    readln(a,b,c);
    if ss(a,b,c)=true then writeln(b)
     else if ss(b,a,c)=true then writeln(a)
      else writeln(c);
readln;
end.