Algoritmo que leia 3 números e exiba em ordem crescente

Leia 3 números e os apresente em ordem crescente

Pseudocódigo:

programa exercicio18
var
   n1, n2, n3, x : inteiro;
inicio
   leia n1;
   leia n2;
   leia n3;
   se (n1 > n2) entao
   	   x ← n1;
   	   n1 ← n2;
   	   n2 ← x;
   fim_se;	
   		se (n2 > n3) entao
   			x ← n2;
   			n2 ← n3;
   			n3 ← x;
		fim_se;   		
			se (n1 > n2) entao
   					x1 ← n1;
   					n1 ← n2;
   					n2 ← x;
   			fim_se;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 24/03/2014
Program exercicio18;
 uses crt;
 var
 n1, n2, n3, x : integer;
 Begin
 writeln('Insira Numero 1');
 readln(n1);
 writeln('Insira Numero 2');
 readln(n2);
 writeln('Insira Numero 3');
 readln(n3);
 	if (n1 > n2) then
 	  begin
 	    x := n1;
 	    n1 := n2;
	    n2 := x; 
 	  end;
 	if (n2 > n3) then
 	  begin
 	    x := n2;
 	    n2 := n3;
	    n3 := x; 
 	  end;
 	if (n1 > n2) then
 	  begin
 	    x := n1;
 	    n1 := n2;
	    n2 := x; 
 	  end;
	 writeln('Ordem Crescente: ', n1, ', ' ,n2, ' ,' ,n3);
 writeln('Pressione para fechar');
 readkey;  
End.