algoritmo hecho pseint (resuelto)

Algoritmo 1 Escribir "ingrese el numero"; Leer n; Si N<>Trunc(N) Entonces Escribir 'El numero debe ser entero!'; Sino Si abs(N)>50 Entonces Escribir 'Resultado muy grande!'; Sino r<-1; f<-1; Mientras f<=abs(N) Hacer Si N<0 Entonces r<-(-f)*r; Sino r<-f*r; FinSi f<-f+1; FinMientras Escribir 'Factorial:',r; FinSi FinSi Fin proceso Algoritmo dos Proceso suma_numeros suma<-0; promedio<-0; n<-1; Mientras n<=5 Hacer Escribir "ingrese un numero "; leer num; suma<-suma+num; promedio<-suma/n; n<-n+1; FinMientras Escribir " el promedio es " promedio ; FinProceso Algoritmo tres Proceso algoritmo3 num<-0; n<-1; cont1<-0; cont2<-0; cont3<-0; Mientras n <= 50 Hacer Escribir " ingrese un numero " ; leer num; Si num < 0 Entonces cont1<-cont1+1; Sino Si num > 0 Entonces cont2<-cont2+1 Sino Si num = 0 Entonces cont3<-cont3+1 FinSi FinSi FinSi n<-n+1; FinMientras Escribir " los numeros menores que cero " cont1; Escribir " los numeros mayores que cero " cont2; Escribir " los numeros iguales que cero " cont3; FinProceso Algoritmo 4 Inicio max<-0; num<-0; n<-0; i<-0; Escribir "escriba la cantidad de numeros de la lista"; Leer n; Para i<-1 Hasta n Hacer Escribir "Escriba un numero"; Leer num; si num>max entonces max<-num; FinSi FinPara escribir "el numero mayor es: " max; FinProceso