Написать программу для упорядочения чисел a,b,c по возрастанию.Таким образом ,что а соответствует наименьшему, b среднему, c наибольшему.

Var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, , b, , c);
end.