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