Pseudocodigo en sle2

[natadarthis]

Hola, necesito ayuda para terminar este pseudocodigo, tengo que hacer que si al ingresar un letra me diga un mensaje que no se pueden esciribir letras ni simbolos.

var
n1,n2,r : numerico
inicio
cls()
imprimir ("Digite el primer numero")
leer (n1)
imprimir ("Digite el segundo numero")
leer (n2)
r=n1+n2
imprimir ("\n",n1,"+",n2,"=",r)
r=n1-n2
imprimir ("\n",n1,"-",n2,"=",r)
r=n1*n2
imprimir ("\n",n1,"*",n2,"=",r)
si (n2==0){
imprimir ("\nno se puede dividir por cero (0)")
sino
r=n1/n2
imprimir ("\n",n1,"÷",n2,"=",r)
}

fin