Arreglos en pseint. Problema 73

Enunciado: Dado 5 números y un divisor, determinar cuantos números múltiplos hay del divisor en los 5 números ingresados.

//DADO 5 NUMEROS Y UN DIVISOR,DETERMINAR CUANTOS NUMEROS MULTIPLOS
//HAY EN LOS 5 NUMEROS INGRESADOS.
Proceso Ejercicio3
   
    //Declaramos variables 
    Definir num, divisor, contador, i, m como entero;
    Definir t como entero;
    Definir suma Como Entero;
    t=5;
    suma=0;
    m=0;
    divisor=0;
    contador=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   
   
    escribir "Introduce el valor divisor a inspeccionar";
    leer divisor;
   
   
   

    Para i<-1 Hasta t Con Paso 1 Hacer
        si num[i] mod divisor = 0 entonces
            contador=contador+1;
           
        FinSi
       
    FinPara
    Escribir "El numero total de divisores son ", contador;
FinProceso