Hola rbarzallo.
Una forma de realizarlo: Declara cinco variables, una para almacenar los 4 dígitos y 4 mas para que recorran los cuatro números.
El algorímo se reduce a:
Código:
variables
n
a,b,c,d
comenzar
leer n. // leer los 4 dígitos
para a <- 1 hasta 4
...
...
...
si no((n[a]=n[b]) v (n[a]=n[c]) v (n[a]=n[d]) v
(n[b]=n[c]) v (n[b]=n[d]) v (n[c]=n[d])) entonces
escribir (n[a],n[b],n[c],n[d]).
...
Saludos.
Edito: No lo puse en Pascal para que realices algo de la tarea...
