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