Gracias por leer el post.

Estoy resolviendo el siguiente ejercicio, pero me da problemas al digitar un número mayor de 4 ceros.

Problema: Realizar un algoritmo que lea un número por teclado. En caso de que ese número sea 0 o menor que 0, se saldrá del programa imprimiendo antes un mensaje de error. Si es mayor que 0, se deberá calcular su cuadrado y la raiz cuadrada del mismo, visualizando el numero que ha tecleado el usuario y su resultado (“Del numero X, su potencia es X y su raiz X” )

1   Definir a, b, c, r Como Entero;
2   
3   Repetir
4   	Escribir "Digite su número: ";
5   	leer a;
6   	
7   	Mientras a <= 0 hacer
8   		Escribir "Error";
9   		Escribir "Digite un número positivo;";
10   		leer a;
11   	FinMientras
12   	
13   	Si a > 0 Entonces
14   		b = a * a;
15   		c = rc(b);
16   		Escribir "Del número ", a;
17   		Escribir "su potencia es ", b " y su raiz cuadrado es ", c;	
18   	FinSi
19   	
20   	Escribir "Desea hacer otra operación:";
21   	Escribir "Indique 1 para si y 2 para no:";
22   	leer r;
23   Hasta Que r != 1;
24   
25   Escribir "Gracias";
26   
27FinAlgoritmo