program stozki
implicit none
real, dimension (100):: r,h,v
real :: t,pi=4*atan(1.)
integer :: i,j,errorinfo,n_data=0

open (1, file='dane.txt',status='old')
open (2, file='wynik.txt',status='unknown')

         !liczenie ilości danych
do
   read (1,*,iostat=errorinfo)t,t
   if (errorinfo/=0)then
      exit
   end if
   n_data=n_data+1
end do
rewind(1)
!write(*,*)n_data

         !wczytanie danych
do i = 1,n_data
   read(1,*)r(i),h(i)
end do

         !liczenie objetosci
do i = 1,n_data
   v(i)=1./3.*pi*(r(i)**2)*h(i)
end do

         !sortowanie kolejnosci
do i=1,n_data-1
   do j=i+1,n_data
      if (v(i)<v(j))then
         t=v(i)
         v(i)=v(j)
         v(j)=t
         
         t=h(i)
         h(i)=h(j)
         h(j)=t
         
         t=r(i)
         r(i)=r(j)
         r(j)=t
      end if
   enddo
enddo                

         !wypisanie wyników:
write(2,*)'    r         h         v'
do i=1,n_data
   write(2,'(2f10.2,f12.4)')r(i),h(i),v(i)
enddo            



end program stozki