Arreglos en pseint. Problema 74

Enunciado: Dado 5 números, obtener la cantidad de números primos ingresados.




//DADO 5 NUMEROS,OBTENER LA CANTIDAD DE NUMEROS PRIMOS INGRESADOS.
Proceso Ejercicio4 
   
    //Declaramos variables 
    Definir num, c,i,j como entero;
    Definir t como entero;
    definir flan como logico;
   
    Definir suma Como Entero;
    t=5;
   
    c=0;
    i=0;
    j=0;
   
    //Definimos el array
    Dimension num[t];
   
    //Introducimos valores
    Para i<-1 Hasta t Con Paso 1 Hacer
        Escribir "Introduce un valor para la posicion ",i;
        leer num[i];
    Fin Para   
   
   
    Para i<-1 Hasta t Con Paso 1 Hacer
        flan = verdadero;
        Para j<- 2 hasta num[i]/2 con paso 1 hacer
            si num[i] mod j =0 entonces
                flan=falso;
               
               
            FinSi
        FinPara
        si flan entonces
            c=c +1;
           
        FinSi

    FinPara
    Escribir "El numero total de numeros primos ingresados son ", c;
FinProceso