!gfortran, gcc version 5.4.0 20160609
! начинаем программу
program numberFive
    ! объявляем переменные
    ! a - первое число для проверки
    ! b - второе число для проверки
    ! input - число с клавиатуры
    real :: a, b, input

    a = 3
    b = 5

    ! считываем число
    read *, input

    ! если число с клавы делится без остатка на 3 и на 5, то пишем, что делится
    if (MOD(input, a) == 0 .and. MOD(input, b) == 0) then
        print *, "Число кратно числам 3 и 5"
    else
        print *, "Число не кратно числам 3 и 5"
    endif
end program numberFive