Pascal tri par permutation

Voilà une solution en pascal à ce problème

program classe_3;
uses wincrt;

var
a : DOUBLE;
b : DOUBLE;
c : DOUBLE;

begin

writeln('Ce programme va classer trois réels.');
write ('Donnez le premier réel : ');
readln (a);
write ('Donnez le second réel : ');
readln (b);
write ('Donnez le troisième réel : ');
readln (c);

if (a<b)
then begin
if (b<c)
then begin
writeln (a,'<',b,'<',c);
end
else begin
if (c<a)
then begin
writeln (c,'<',a,'<',b);
end
else begin
writeln (a,'<',c,'<',b);
end;
end;
end
else begin
if (c<b)
then begin
writeln (c,'<',b,'<',a);
end
else begin
if (c<a)
then begin
writeln (b,'<',c,'<',a);
end
else begin
writeln (b,'<',a,'<',c);
end;
end;
end;

readln();

end.