Question

Даны числа A, В и С. Написать программу, выводящую их в убывающем порядке.

Answer 1

===== PascalABC.NET =====

begin

 var (a, b, c) := ReadInteger3('Введи три числа:');

 if a < b then

   Swap(a, b);

 if c > b then

 begin  

   Swap(b, c);

   if b > a then

     Swap(a, b)

 end;

 Print(a, b, c)

end.