Составить программу сортировки в Паскаль ABC: Даны три числа, расположить их в порядке убывания.

Program p;

Var

a, b, c, i, j, n : Integer;

Begin

Writeln ('введите три числа');

Readln (a, b, c);

if a>b then if a>c then Writeln (a, c, b)

else Writeln (c, a, b)

else if c>b then Writeln (a, b, c)

else Writeln (b, c, a);

Readln;

End.