program hello
integer value,a
read *, value
d2 = mod(value,100000)
d3 = mod(value,10000)
d4 = mod(value,1000)
d5 = mod(value,100)
d6 = mod(value,100000)
if(value /= 0) then
 f = (int(value)/100000)
    SELECT CASE (int(f))
     CASE (1)
    WRITE(*,*) "cento"
    CASE (2)
    WRITE(*,*) 'duzentos'
    CASE (3)
    WRITE(*,*) 'trezentos'
    CASE (4)
    WRITE(*,*) 'quatrocentos'
    CASE (5)
    WRITE(*,*) 'quinhentos'
    CASE (6)
    WRITE(*,*) 'seiscentos'
    CASE (7)
    WRITE(*,*) 'setecentos'
    CASE (8)
    WRITE(*,*) 'oitocentos'
    CASE (9)
    WRITE(*,*) 'novecentos'
    END SELECT
end if
if(d2 /= 0) then
 e = (int(d2)/10000)
    if(f /= 0 .AND. e /= 0) then
    print *, 'e'
    end if
    if(e == 1 .AND. d3 /= 0) then
    d = (int(d3)/1000)

    SELECT CASE (int(d))
    CASE (1)
    WRITE(*,*) 'onze'
    CASE (2)
    WRITE(*,*) 'doze'
    CASE (3)
    WRITE(*,*) 'treze'
    CASE (4)
    WRITE(*,*) 'quatorze'
    CASE (5)
    WRITE(*,*) 'quinze'
    CASE (6)
    WRITE(*,*) 'dezesseis'
    CASE (7)
    WRITE(*,*) 'dezessete'
    CASE (8)
    WRITE(*,*) 'dezoito'
    CASE (9)
    WRITE(*,*) 'dezenove'
    END SELECT

    else

    SELECT CASE (int(e))
    CASE (1)
    WRITE(*,*) 'dez'
    CASE (2)
    WRITE(*,*) 'vinte'
    CASE (3)
    WRITE(*,*) 'trinta'
    CASE (4)
    WRITE(*,*) 'quarenta'
    CASE (5)
    WRITE(*,*) 'cinquenta'
    CASE (6)
    WRITE(*,*) 'sessenta'
    CASE (7)
    WRITE(*,*) 'setenta'
    CASE (8)
    WRITE(*,*) 'oitenta'
    CASE (9)
    WRITE(*,*) 'noventa'
    END SELECT
    end if
end if
if(d3 /= 0 .AND. e /= 1) then
 d = (int(d3)/1000)
    if((f /= 0 .AND. d /= 0) .OR. (e /= 0 .AND. d /= 0)) then
    print *, 'e'
    end if
    SELECT CASE (int(d))
    CASE (1)
    WRITE(*,*) 'um'
    CASE (2)
    WRITE(*,*) 'dois'
    CASE (3)
    WRITE(*,*) 'tres'
    CASE (4)
    WRITE(*,*) 'quatro'
    CASE (5)
    WRITE(*,*) 'cinco'
    CASE (6)
    WRITE(*,*) 'seis'
    CASE (7)
    WRITE(*,*) 'sete'
    CASE (8)
    WRITE(*,*) 'oito'
    CASE (9)
    WRITE(*,*) 'nove'
    END SELECT


end if
    if(f /= 0 .OR. d/= 0 .OR. e /= 0) then
    print *, 'mil'
    end if
if(d4 /= 0) then
 c = (int(d4)/100)
    SELECT CASE (int(c))
    CASE (1)
    WRITE(*,*) 'cento'
    CASE (2)
    WRITE(*,*) 'duzentos'
    CASE (3)
    WRITE(*,*) 'trezentos'
    CASE (4)
    WRITE(*,*) 'quatrocentos'
    CASE (5)
    WRITE(*,*) 'quinhentos'
    CASE (6)
    WRITE(*,*) 'seiscentos'
    CASE (7)
    WRITE(*,*) 'setecentos'
    CASE (8)
    WRITE(*,*) 'oitocentos'
    CASE (9)
    WRITE(*,*) 'novecentos'
    END SELECT
end if
if(d5 /= 0) then
 b = (int(d5)/10)
    if(c /= 0 .AND. b /= 0) then
    print *, 'e'
    end if
    if(b == 1 .AND. d6 /= 0) then
    a = mod(int(d6),10)
    SELECT CASE (int(a))
    CASE (1)
    WRITE(*,*) 'onze'
    CASE (2)
    WRITE(*,*) 'doze'
    CASE (3)
    WRITE(*,*) 'treze'
    CASE (4)
    WRITE(*,*) 'quatorze'
    CASE (5)
    WRITE(*,*) 'quinze'
    CASE (6)
    WRITE(*,*) 'dezesseis'
    CASE (7)
    WRITE(*,*) 'dezessete'
    CASE (8)
    WRITE(*,*) 'dezoito'
    CASE (9)
    WRITE(*,*) 'dezenove'
    END SELECT

    else

    SELECT CASE (int(b))
    CASE (1)
    WRITE(*,*) 'dez'
    CASE (2)
    WRITE(*,*) 'vinte'
    CASE (3)
    WRITE(*,*) 'trinta'
    CASE (4)
    WRITE(*,*) 'quarenta'
    CASE (5)
    WRITE(*,*) 'cinquenta'
    CASE (6)
    WRITE(*,*) 'sessenta'
    CASE (7)
    WRITE(*,*) 'setenta'
    CASE (8)
    WRITE(*,*) 'oitenta'
    CASE (9)
    WRITE(*,*) 'noventa'
    END SELECT
    end if
end if
if(d6 /= 0 .AND. b /= 1) then
    a = mod(int(d6),10)

    if((c /= 0 .AND. a /= 0) .OR. (b /= 0 .AND. a /= 0)) then
    print *, 'e'
    end if
    SELECT CASE (int(a))
    CASE (1)
    WRITE(*,*) 'um'
    CASE (2)
    WRITE(*,*) 'dois'
    CASE (3)
    WRITE(*,*) 'tres'
    CASE (4)
    WRITE(*,*) 'quatro'
    CASE (5)
    WRITE(*,*) 'cinco'
    CASE (6)
    WRITE(*,*) 'seis'
    CASE (7)
    WRITE(*,*) 'sete'
    CASE (8)
    WRITE(*,*) 'oito'
    CASE (9)
    WRITE(*,*) 'nove'
    END SELECT


end if
    if(a == 1 .AND. b == 0 .AND. c==0 .AND. d==0 .AND. e==0 .AND. f == 0) then
    print *, 'Real'
    else
    print *, 'Reais'
    end if
end program




///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

program hello

integer a, b, i, j, flag;

read *, a

read *, b

    DO 10 i = a, b, 1
        flag = 1
        d = i/2
        DO 20 j = 2, d, 1
            if(mod(i,j) == 0) then
                flag = 0
                exit
                end if
        20 CONTINUE
        if(flag == 1) then
            print *, i
        end if
     10 CONTINUE
end program