program polinomio
implicit none

integer,parameter::imax=10
integer:: n,i,ierr
real,dimension(imax)::a
real ::x,y

read(5,*)n
do i=1,n 
   read(5,*) a(i)
enddo

read(5,*,iostat=ierr) x
do while(ierr == 0)
! calcolo pol(x)

   y=0
   do i=1,n
      y=y+a(i)*x**(i-1)
   enddo

   write(6,'(2f10.3)')x,y
   read(5,*,iostat=ierr) x
enddo
if (ierr > 0) then
   write(6,*)'Errore numero:', ierr
endif
end program polinomio