Осуществление сортировки значений трех переменных.

[Inesto]

Нужно составить программу, осуществляющую сортировку значений трех переменных A,B,C по убыванию.

[Stilet]

С потолка:

var a,b,c,i:integer;
begin
a:=4;b:=2;c:=7;
if a>b then begin i:=a;a:=b;b:=i; end;
if b>c then begin i:=b;b:=c;c:=i; end;
if a>b then begin i:=a;a:=b;b:=i; end;
write(a:5,b:5,c:5);
readln;
end.