С клавиатуры вводятся четыре целых числа. Написать и отладить программу

program test
implicit none
 
integer, parameter      :: n = 4
integer, dimension (n)  :: a
integer                 :: i
 
    !Введем с клавиатуры 4 числа
    do i = 1, n
        print 100, "Число", i, " = "; read*, a(i)
    end do
 
    !Здесь выполняем задание
    ...
    ...
    
    
    !И выводим результаты на экран
    ...
    ...
 
100 format (a, i3, a, $)
end program test

program test
implicit none
 
integer, parameter      :: n = 4
integer, dimension (n)  :: a
integer                 :: i, k = 0
 
    !Введем с клавиатуры 4 числа
    do i = 1, n
        print 100, " Число", i, " = "; read*, a(i)
    end do
 
    !Пункт 1, найдем количенство чисел больше 10-ти
    do i = 1, n
        if (a(i) > 10) k = k + 1
    end do
 
print*, "Количество чисел больше 10 = ", k 
 
100 format (a, i3, a, $)
end program test

if (a>b) then
...
else
...
end if

 if (a(i) > 10) k = k + 1

  if (a(i) > 10) k = k + a(i)

program test
implicit none
 
integer, parameter      :: n = 4
integer                 :: i, a, s
 
     s = 0 ! начальное значение суммы
    !Введем с клавиатуры 4 числа
    do i = 1, n
        print 100, "Число", i, " = ";
        read *, a
 
        ! проверяем, число больше 10?
        if (a>10) s = s+a
    end do
 
    !И выводим результаты на экран
    if (s>0) then
       print *, "Сумма чисел больше 10 равна ", s
    else
       print *, "Нет таких чисел"
    end if
100 format (a, i3, a, $)
end program test

program lab2
implicit none
 
integer, parameter      :: n = 4
integer, dimension (n)  :: a
integer                 :: i, k, k2, k3 , k4 = 0
    !Введем с клавиатуры 4 числа
    do i = 1, n
        print 100, " Число", i, " = "; read*, a(i)
    end do
 
        !Пункт 1, найдем сумму чисел больше 10-ти
        do i = 1, n
        if (a(i) > 10) k = k + a(i)
    end do
        !Пункт 2, найдём 
        do i = 1, n 
        if ( mod( a(i),3 )==0 ) k2 = k2 * a(i)
    end do    
        !Пункт 3, определим количество четных и нечетных чисел
        do i = 1, n 
        if ( mod(a(i),2)==0) k3 = k3 + 1 
    end do    
        !Определим количество нечетных чисел
         do i = 1, n 
        if (mod(a(i),2)/=0) k4 = k4 + 1 
    end do  
    
print*, "Сумма чисел больше 10 = ", k     
 
print*, "Произведение чисел кратных трём =", k2
 
print*, "Количество четных чисел = ", k3
 
print*, "Количество нечетных чисел = ", k4
 
100 format (a, i3, a, $)
end program lab2

program test
implicit none
 
integer, parameter      :: n = 4
integer                 :: i, a, s, p, k1 ,k2
 
     s = 0 ! начальное значение суммы
     p = 1
     k1 = 0
     k2 = 0
    !Введем с клавиатуры 4 числа
    do i = 1, n
        print 100, "Число", i, " = ";
        read *, a
 
        ! проверяем, число больше 10?
        if (a>10) s = s+a
 
        ! проверяем кратность 3
        if (mod(a,3)==0) p=p*a
 
        ! проверка четности
        if (mod(a,2)==0) then
           k1 = k1+1
        else
           k2 = k2+1
        endif
    end do
 
    !И выводим результаты на экран
    print *, s, p, k1, k2
100 format (a, i3, a, $)
end program test