program ordenarLetras;
var
letra1, letra2, letra3: char;
begin
writeln('Ingrese tres letras mayusculas: ');
readln(letra1, letra2, letra3);
// Comparar y ordenar las letras
if letra1 > letra2 then
begin
// Intercambiar letra1 y letra2
letra1 := letra1 xor letra2;
letra2 := letra1 xor letra2;
letra1 := letra1 xor letra2;
end;
if letra2 > letra3 then
begin
// Intercambiar letra2 y letra3
letra2 := letra2 xor letra3;
letra3 := letra2 xor letra3;
letra2 := letra2 xor letra3;
end;
if letra1 > letra2 then
begin
// Intercambiar letra1 y letra2
letra1 := letra1 xor letra2;
letra2 := letra1 xor letra2;
letra1 := letra1 xor letra2;
end;
writeln('Las letras ordenadas alfabeticamente son: ', letra1, letra2, letra3);
readln;
end.