area_circulo_01.f90

! Este programa lê um valor real para o raio (r) e imprime
! a área do círculo de raio r
program circulo
implicit none
real, parameter :: pi = 3.14159

print *, 'Digite um valor para o raio (r) do circulo: '
read *, r
area = pi * r ** 2

print*, 'Area: ', area
enddo program circulo