[Pascal] Вариант решения 3 чисел в возрастающем порядке

program q;

uses crt;
var
  a, b, c, x: real;

begin
  write('Enter a,b,c: ');
  readln(a, b, c);
  if a > b then
  begin
    x := a;
    a := b;
    b := x;
  end;
  if a > c then
  begin
    x := a;
    a := c;
    c := x;
  end;
  if b > c then
  begin
    x := b;
    b := c;
    c := x;
  end;
  writeln(a:1:2, ',', b:1:2, ',', c:1:2);
end.