Составьте программу сортировки по возрастанию значений трех переменных: A, B, C

Составьте программу сортировки по возрастанию значений трех переменных: A, B, C.

Program SORTING;
var A, B, C, D: real;
begin
readln(A,B,C);
if A>B
   then
      if B>C
      then begin D:=A; A:=C; C:=D end
      else
         if C<A
         then begin D:=A; A:=B; B:=C; C:=D end
         else begin D:=B; B:=A; A:=D end
   else
      if C<A
      then begin D:=B; B:=A; A:=C; C:=D end
      else
         if C<B
         then begin D:=B; B:=C; C:=D end;
writeln(A,', ',B,', ',C)
end.