op_aritmetica.f90

program op_aritmetica
! Este programa efetua um cálculo aritmético
!
implicit none  

   ! declaração de variáveis
   integer :: a, b, c

   ! atribuindo valores 
   a = 5   
   b = 3  

   ! Exponenciação 
   c = a ** b 

   ! Mostrando o resultado 
   print *, "c = ", c

   ! Multiplicação  
   c = a * b 

   ! resultado 
   print *, "c = ", c

   ! Divisão  
   c = a / b 

   ! resultado
   print *, "c = ", c

   ! Adição
   c = a + b 

   ! resultado 
   print *, "c = ", c

   ! Subtracão 
   c = a - b 

   ! resultado
   print *, "c = ", c

end