Написать программу для упорядочения чисел 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.