一道关于PASCAL的简单问题，在线求

var
a,b,c,d:integer;{需要读出的数据}
max,min,s:integer;{分别储存最大量和最小量,和}
begin
read(a,b,c,d);
max:=a; {a的值赋予max}
if max<b then
max:=b;
if max<c then
max:=c;
if max<d then
max:=d; {选出其中最大的一个数}

min:=a; {a的值赋予min}
if min<b then
min:=b;
if min<c then
min:=c;
if min<d then
min:=d; {选出其中最小的数}
s:=max+min; {求和}
write(s); {打印出和}
readln
end.

用if涵数

var a,b,c,d,max,min:integer;

begin
readln(a,b,c);

if (a>b)and(a>c) then max:=a
else if (b>a)and(b>c) then max:=b
else max:=c;

if (a<b)and(a<c) then min:=a;
if (b<a)and(b<c) then min:=b;
else min:=c;

d:=max+min;
writeln(d);

end.

program abc;

var a,b,c,d,max,min:real;

begin

readln(a,b,c); ｛输入｝
if (a>b)and(