program circle_area
implicit none

! program oblicza pole kola o zadanym promieniu

real radius  !deklaracja zmiennej rzeczywistej
real area
real, parameter :: pi = 3.141592 !deklaracja rzeczywistego parametru


write(*,*) 'Wpisz wartosc promienia kola'
read(*,*) radius !czytanie z urzadzenia wejscia

area = radius * radius * pi ! proste obliczenia arytmetyczne

write(*,*) 'Pole kola o promieniu', radius, 'to ', area  ! wypisanie wyniku

end