Отсортировать.

[Вадим Буренков]

Отсортировать числа по убыванию:
//неотсортированные числа
v1,v2,v3:single;
//отсортированные числа
i1,i2,i3:single;
Например если
v1=4
v2=1
v3=7
нужно получить
i1=7
i2=4
i3=1
Помогите пожалуйста.

[Sazary]

var
//неотсортированные числа
v1,v2,v3:single;
//отсортированные числа
i1,i2,i3:single;

function max(a,b : single) : single;
begin
if a>b then max := a
else max := b;
end;

function min(a,b : single) : single;
begin
if a<b then min:=a
else min:=b;
end;

begin
v1:=4;
v2:=1;
v3:=7;

i1 := max(v1,max(v2,v3));
i3 := min(v1,min(v2,v3));
i2 := (v1+v2+v3)-(i1+i3);

writeln(i1,' ',i2,' ',i3);

readln;
end.