Написать алгоритм упорядочения расположения чисел 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.