PROGRAM Palindromik_Sayilar
!----------------------------------------------
! 17prg03.f95
! N = 1000'den küçük bütün Palindromik Sayılar.
!----------------------------------------------
IMPLICIT NONE
INTEGER, PARAMETER :: N = 1000
INTEGER :: M, B, Tersi, Sayi, Sayac = 0

DO Sayi = 1, N

   M = Sayi
   Tersi = 0

   DO WHILE(M>0)
      B = MOD(M, 10)
      M = M / 10
      Tersi = 10*Tersi + B
   END DO

   IF( Sayi == Tersi ) THEN
      PRINT *,Sayi
      Sayac = Sayac + 1
   END IF

END DO

PRINT *,"Toplam ",Sayac, "tane."

END PROGRAM Palindromik_Sayilar