program plotfun
implicit none
integer:: i,n
real:: x,x0,x1,dx,f1,f2

read(5,*)x0,x1,n

dx=(x1-x0)/(n-1)
do i=1,n
   x=x0+(i-1)*dx
   f1=sin(x)
   f2=cos(x)
   write(6,'(i3,3f8.3)')i,x,f1,f2
enddo

write(6,*)'*****************'

n=n-1
dx=(x1-x0)/n
do i=0,n
   x=x0+i*dx
   f1=sin(x)
   f2=cos(x)
   write(6,'(i3,3f8.3)')i,x,f1,f2
enddo



end program plotfun