Azar sin repetir

Quiero escribir este código porque tuve opiniones diversas entre los profesores que lo evaluaron. Uno me dijo que era "lo obvio" y otro me dijo que era "un garabato" escrito en código.

En fin, funciona, pero si alguien quiere puede compartir otras formas u opiniones, ya saben...

Proceso azarSinRepetir

definir i, j, num Como Entero;
dimension num[20];

para i=0 hasta 19 Hacer
num[i] = azar(30)+1;
//Print sólo para ver el funcionamiento
Escribir "N°",i+1," = ", num[i];
para j=0 hasta i Hacer
si j != i && num[j] == num[i] Entonces
i = i - 1;
FinSi
FinPara
FinPara

FinProceso