Даны 3 числа(а,в,с). Составьте программу, которая меняет местами max и min элементы.Не массив.

var   a,b,c:integer;   max,min:integer; begin   readln(a,b,c);   if ((a>=b)and(a>=c)and(b<=c))or((b>=a)and(b>=c)and(a<=c)) then swap(a,b)   else     if ((a>=b)and(a>=c)and(c<=b))or((c>=b)and(c>=a)and(a<=b)) then swap(a,c)     else       if ((b>=a)and(b>=c)and(c<=a))or((c>=b)and(c>=a)and(b<=a)) then swap(b,c);  writeln(a,' ',b,' ',c); end.

var a,b,c,d:integer; begin writeln('a, b, c:'); readln(a,b,c); if (a>b)and(ac)and(aa)and(bc)and(b