program SortVariables;
var
a, b, temp: integer;
begin
writeln('Enter two variables:');
readln(a, b);

if a < b then
begin
temp := a;
a := b;
b := temp;
end;

writeln('Sorted variables in descending order:');
writeln('a = ', a);
writeln('b = ', b);
end.