PROGRAM desit
  IMPLICIT NONE
  INTEGER :: n

  WRITE (*,*) 'Anna n:'
  READ (*,*) n
  WRITE (*,*) 'Luku n: ', n
  WRITE (*,*) 'Desimaaleja: ', desimaalit(n)
CONTAINS
  FUNCTION desimaalit(i) RESULT(desim)
    IMPLICIT NONE
    INTEGER :: i, desim
    INTEGER :: apu
    INTRINSIC ABS

    desim = 1
    apu = ABS(i)
    DO WHILE (apu >= 10)
      apu = apu/10
      desim = desim + 1
    END DO
  END FUNCTION desimaalit
END PROGRAM desit