area-circulo.f95

!
! Nome do programa: area_do_circulo
! Autor: Hans
! Criado em: 10/05/2011
!
! Atualizado em 07-11-14 14:30 por Hans
!

program area_do_circulo
implicit none

real, parameter :: pi=3.14
real :: area=0.0 , raio

raio = 2.4

area = pi * raio**2

write(*,*) 'A area vale: ', area

stop '--> Programa finalizado'
end program