       WRITE(*,25)
       READ(*,*) BE
  25   FORMAT(1x,'Input:')  
       ZZ=SQRT(BE)
       WRITE(*,40) ZZ
  40   FORMAT(1X,F10.2)
