!gfortran, gcc version 5.4.0 20160609
! начинаем программу
program numberThree
    ! объявляем переменные
    real :: z, x, a
    ! присваеваем им значения согласно заданию
    x = 0.74
    a = 2

    ! вычисляем функцию, место f у нас equasion
    ! в функцию equasion засовываем аргументы a и x
    z = equasion(x, a)**2 + 0.4 * equasion(x, a)
    ! выводим реззультат
    print *, z
end program numberThree

! начинаем функцию
function equasion(x, a)
    ! объявляем переменные
    ! x, a - аргументы, которые мы засунули в самой программе
    ! equasion - переменная, названная именем функции, в ней будет
    ! результуат самой функции
    real :: equasion, x, a

    ! здесь смотрим на условия, и в зависимости от переменной x
    ! выполняяем нужные действия и получем результат
    if (x < 1) then
        equasion = sqrt(-a * x + 2)
    else if(x >= 12) then
        equasion = log(x ** 2)
    else
        equasion = abs(sin(x ** 3))
    endif
end function equasion