Даны три числа АВС. Составьте программу, которая упорядочит их по возрастанию?

Var

a, b, c, max, min, mid:real;

begin

readln (a, b, c);

if (a>b) then begin max:=a; mid:=b end

else begin max:=b; mid:=a end;

if c>max then max:=c

else

if c>mid then begin min:=mid; mid:=c end;

write (min,' ', mid,' ', max);

end.