求助 if语句完善程序 if…then…else…

var d:integer
if a>b then
d=b;
else
d=a;
if d>c then
d=c;

write(d);

不知道你的是什么遗言编写的这是我找到的十个数字输出最小的，你参考下吧。。。
procedure Bubble_Sort(var L:List);
var
i,j:position;
begin
1for i:=First(L) to Last(L)-1 do
2 for j:=First(L) to Last(L)-i do
3 if L[j]>L[j+1] then
4 swap(L[j],L[j+1]); //交换L[j]和L[j+1]
end;

你用的是delphi？
在uses添加 math
Var a,b,c,d:integer;
if min(a,b)=min(a,c) then
d:=min(a,b) else
if min(b,a)=min(b,c) then
d:=min(b,a) else
if min(c,a)=min(c,b) then
d:=min(c,a);
showmessage(inttostr(d));
这样A,B,C三个无论你定义什么数。最后输出的D都是最小的那个数。。

反之 如果你要输出最大数。，把上面代码里的min改成max。。

program work;
var
a,b,c:integer;
min:integer;
begin
realn(a,b,c)
if a<b then if b<c then min:=a
else if c<a then min:=c