program obracanje
! Avtor:Klasinc Danilo
character*10,niz,obrni
print*,'vnesi niz'
10 format(a)
read 10,niz
print*,'obrnjen niz je',obrni(niz)
end

character*10 function obrni(c)
character zn*10,c*10
j=10
do I=1,10
zn(j:j)=c(i:i)
j=j-1
enddo
obrni=zn
return
end