Нужно написать программы для паскаля 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.