trazas 25.04.17

//traza 1
Proceso sin_titulo
	Definir num1 Como Entero;
	num1 = 5001;

	Mientras num1 > 100 Hacer
		si num1%3==0 Entonces
			num1 = trunc(num1-(num1/5)-1);
			Escribir "1_",num1;
		Sino
			num1 = num1+1;
			Escribir "2_",num1;
		FinSi
	FinMientras
FinProceso

//traza 2
Proceso sin_titulo
	Definir num1, num2 Como Entero;
	num1 = 500;
	num2 = 5000;

	Mientras num2 > num1 Hacer
		si num2 > 1000 Entonces
			num2 = trunc((num2/2)+num1);
			Escribir "if_num1_",num1;
			Escribir "if_num2_",num2;
		Sino
			num2 = num1 - 100;
			Escribir "else_num1_",num1;
			Escribir "else_num2_",num2;
		FinSi
		num1 = redon(num1 + (num2 * 0.5));
		Escribir "3_num1_",num1;
		Escribir "3_num2_",num2;
	FinMientras
FinProceso