integer :: a
real :: b
character(len=10) :: c

program variable_example
    integer :: age
    real :: height
    double precision :: distance
    character(len=20) :: name
    logical :: is_student
end program variable_example

integer :: a = 10
real :: b = 3.14
character(len=10) :: c = 'Fortran'

program initialization_example
    integer :: a
    real :: b
    character(len=10) :: c

    a = 10
    b = 3.14
    c = 'Fortran'
end program initialization_example

program conversion_example
    real :: a = 3.14
    integer :: b

    b = int(a)  ! Converteix a enter
    print *, 'Valor de b: ', b
end program conversion_example

program area_circle
    real :: radius, area
    real, parameter :: pi = 3.14159

    print *, 'Introdueix el radi del cercle:'
    read *, radius

    area = pi * radius**2
    print *, 'L''àrea del cercle és: ', area
end program area_circle

program age_check
    integer :: age
    logical :: is_adult

    print *, 'Introdueix la teva edat:'
    read *, age

    is_adult = (age >= 18)
    if (is_adult) then
        print *, 'Ets major d''edat.'
    else
        print *, 'Ets menor d''edat.'
    end if
end program age_check

program hypotenuse_calculation
    real :: a, b, hypotenuse

    print *, 'Introdueix la longitud del primer catet:'
    read *, a
    print *, 'Introdueix la longitud del segon catet:'
    read *, b

    hypotenuse = sqrt(a**2 + b**2)
    print *, 'La hipotenusa és: ', hypotenuse
end program hypotenuse_calculation

program temperature_conversion
    real :: celsius, fahrenheit

    print *, 'Introdueix la temperatura en graus Celsius:'
    read *, celsius

    fahrenheit = (celsius * 9.0 / 5.0) + 32.0
    print *, 'La temperatura en Fahrenheit és: ', fahrenheit
end program temperature_conversion