составьте программу сортировки по возрастанию значений трех переменных A;B;C

var a,b,c:integer;
begin
readln(a,b,c);
if ((a<b) and (a<c)) then writeln(a)
else if ((b<a) and (b<c)) then writeln(b)
else if ((c<a) and (c<b)) then writeln(c);
if ((a>c) and (c>b)) then writeln(c)
else if((b>c) and (b<a)) then writeln(b)
else if ((b>a) and (a>c)) then writeln(a);
if ((a>b) and (a>c)) then writeln(a)
else if ((b>c) and (b>a)) then writeln(b)
else if ((c>a) and (c>b)) then writeln(c);
end.