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

var a,b,c: integer;
begin
read(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;