PROGRAM KareKok
!--------------------------------------------------------
! 06prg02.f95
! Girilen sayının karekökü hesaplar.
!--------------------------------------------------------
IMPLICIT NONE
REAL :: X

   DO

      WRITE(*,FMT='(A)', ADVANCE='No') "Bir sayı girin: "
      READ *,X

      IF( X<0.0 ) THEN
        PRINT *,"X = ",X, " < 0"
        EXIT
      END IF

      WRITE(*,FMT='(A,F8.3)', ADVANCE='No') "Karekökü : ", SQRT(X)

      PRINT *

   END DO

   PRINT *,"Döngü bitti."

END