Algoritmia - division de algoritmo

Diseñe un algoritmo que lea dos numeros (A, B) y realice la division del primer numero leido (A) entre el segundo numero. DEbe tomar en cuenta lo siguiente:
º 0 / 0 = INDETERMINADO,
º Numero / 0 = Error !!
º 0 / Numero = 0

inicio
leer n1,n2
div=n1/n2
si n1=0 and n2=0 entonces
div='indeterminado'
si n2=0 entonces
div='error'
si n1=0 entonces
div=0
fin si
fin si
fin si
imprimir div

Hola, esta mal el algoritmo en la linea 3 linea, ya que no puedes dividir n1/n2 si n2 es un cero.
despues de leer los numeros, debes de comprobar que el divisor no sea cero, despues puedes proceder a hacer la division.

inicio
leer NUMERO1, NUMERO2

si NUMERO2 no es CERO entonces
imprimir NUMERO1 / NUMERO2
si no
si NUMERO1 es CERO entonces
imprimir "Division indeterminada"
si no
imprimir "Error de division por cero"

Checa, fueron solo 9 lineas, ahora esto en pascal seria

program DIVISION;
var NUMERO1, NUMERO2: integer;
begin
read(NUMERO1);
read(NUMERO2);

if NUMERO2 <> 0 then
writeln( NUMERO1 / NUMERO2 )
else
if NUMERO1 = 0 then writen( "Division indeterminada")
else
writeln( "Error de division por cero")
end.

Saludos.