Написать алгоритм упорядочения расположения чисел n1 n2 n3 вводимых в программу по возрастанию

var max,min,buf,n1,n2,n3:integer; begin readln(n1); readln(n2); readln(n3); if n1>n2 and n1>n3 then   begin max:=n1; if n2>n3 then  begin buf:=n2; min:=n3; end; else  begin buf:=n3 end; end; else      if n2>n1 and n2>n3 then begin max:=n2; if n1>n3  then begin buf:=n1; min:=n3; end; else  begin buf:=n3; end; end; else     begin max:=n3; if n1>n2  then   begin buf:=n1; min:=n2; end;   else   begin  buf:=n2; min:=n1; end;   end;   end.