Pascal\Вводятся 4 числа. Нужно вывести их в порядке убывания. При любых входных данных алгоритм должен выполнять не более пяти операций сравнения. Решения с большим количеством сравнений не оцениваются. Оператор вывода во всём тексте алгоритма должен быть единственный.

Предыдущий
вопрос Следующий
вопрос

Программа на языке Pascal:

va
a, b, c, d: integer
begi
readln(a, b, c, d)
if a < b the
begi
if b < c the
begi
if c < d the
writeln(d, c, b, a
els
begi
if d > b the
writeln(c, d, b, a
els
writeln(c, b, d, a)
end;
en
els
begi
if b < d the
writeln(c, b, d, a
els
begi
if c > d the
writeln(c, b, d, a
els
writeln(b, c, d, a)
end;
end
en
els
begi
if a < c the
begi
if c < d the
writeln(d, c, a, b
else // c >
begi
if a > d the
writeln(c, d, a, b
els
writeln(c, a, d, b)
end
en
els
begi
if a < d the
writeln(c, a, d, b
els
begi
if c > d the
writeln(c, a, d, b
els
writeln(a, c, d, b)
end
end
end
end.