Паскаль, даны 4 числа, расположить их в порядке убывания.

//PascalABC.Net 3.2
begin
var a:=readarrreal('Вводите: ', readinteger('Кол-во чисел: '));
a.Sorted.Reverse.Print;
end.