Поменять значения переменных А,В,С чтобы оказалось А=>В=>С

var a,b,c,d:integer;beginwriteln('a, b, c:');readln(a,b,c);if a<b then begin d:=a; a:=b; b:=d; end;if b<c then begin d:=b; b:=c; c:=d; end;if a<b then begin d:=a; a:=b; b:=d; end;writeln('a = ',a,' b = ',b,' c = ',c);end.Пример:a, b, c:5 2 8a = 8 b = 5 c = 2