刚接触pascal，有些题目不懂，话说这题该怎么做呢？
请请吧内大神写一下程序，用if语句，要简单一点耶

原理应该挺简单的，（如果我没理解错题目的话）
用三个数的和减去这三个数中的最大数和最小数(顺序+分支，不复杂吧）
var a,b,c,s,min,max:longint;
begin
readln(a,b,c);
s:=a+b+c;
min:=maxlongint;
max:=-maxlongint;
if a<min then min:=a;
if a>max then max:=a;
if b<min then min:=b;
if b>max then max:=b;
if c<min then min:=c;
if c>max then max:=c;
writeln(s-min-max);
end.

伪代码
var a,b,c,s,min,max:number;
begin
input(a,b,c);
s:=a+b+c;
min:=inf;
max:=-inf;
if a<min then min:=a;
if a>max then max:=a;
if b<min then min:=b;
if b>max then max:=b;
if c<min then min:=c;
if c>max then max:=c;
print(s-min-max);
end.

先选排，然后输出[2]

直接比较不就可以了？为何各种作死？

var
a,b,c,t:longint;
begin
readln (a,b,c);
if a>b then begin a:=t;a:=b;b:=t;end;
if a>c then begin a:=t;a:=c;c:=t;end;
if b>c then begin b:=t;b:=c;c:=t;end;
writeln (b);
readln
end.
sample input
2 99 99
sample output
99
sample input
2 3 5
sample output
3