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

Program p;

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

BeginWriteln('введите три числа');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.