Значения заданных переменных 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 (ba) and (b>c) and (a>c) then write (b,a,c); if (b>a) and (b>c) and (aa) and (c>b) and (a>b) then write (c,a,b); if (c>a) and (c>b) and (a