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

read(5,*)x0,x1,n

dx=(x1-x0)/(n-1)
do i=1,n
   x=x0+(i-1)*dx
   yf1=f1(x)+5
   yf2=f2(x)
   write(6,100)x,yf1,yf2
100 format(3(x,f12.4))
enddo

end program plotfun