Нужно написать программы для паскаля ABC, которая расположит три числа a,b,c в порядке убывания. Не использовать массив.

var a,b,c:longint; begin   write ('A = ');   readln (a);   write ('B = ');   readln (b);   write ('C = ');   readln (c);   if (a<=b) and (b<=c) then writeln (c,' ',b,' ',a) else     if (b<=a) and (a<=c) then writeln (c,' ',a,' ',b) else      if (c<=a) and (a<=b) then writeln (b,' ',a,' ',c); end.