cara membuat program penghitung volume tabung di fortran plato IDE

     program statment_continue
      real :: phi=3.14
      real :: r,t,hasil
      character (len=1) jawaban
    1 print *, "masukan nilai jari-jari alas tabung"
      read *, r
      print *, "masukan tinggi tabung"
      read *, t
      hasil=phi*r**2*t
      print *, hasil
    2 print *, "apakah ingin menghitung lagi? (y/n)"
      read *, jawaban
      if (jawaban=="y") then
        goto 1
      end if
      if (jawaban=="n") then
        goto 3
      else
      print *, "hanya y/n"
        goto 2
      end if
    3 print *,"yakin ga mau ngitung lagi? y=keluar, n=hitung lagi (y/n)"
      read *, jawaban
      if (jawaban=="y") then
        goto 4
      end if
      if (jawaban=="n") then
        goto 1
      else
      print *, "hanya y/n"
        goto 3
      end if
    4 continue
      end

contoh jadi, gambar:

Silahkan mencoba :)