Значения заданных переменных a, b и c перераспределите таким образом, что a, b, c станут, соответственно, наименьшим, средним и наибольшим значениями. в паскале пожалуйста:)

var a,b,c: integer;beginread(a,b,c);if (a>b) and (a>c) and (b>c) then write(a,b,c);if (a>b) and (a>c) and (b<c) then write(a,c,b);if (b>a) and (b>c) and (a>c) then write(b,a,c);if (b>a) and (b>c) and (a<c) then write(b,c,a);if (c>a) and (c>b) and (a>b) then write(c,a,b);if (c>a) and (c>b) and (a<b) then write(c,b,a);end;