program test
 implicit none
 integer::i,j
 real:: a(5),b(5),c(5),d(5) 
  print*,'enter a(i)'
   do i=1,5
 read*,a(i)
 end do
    print*,'enter b(i)'

  do i=1,5
 read*,b(i)
 end do					    

   
 do j=1,5
     c(j)=a(j)+b(j)
 d=a(j)-b(j)
 print*,a(j),b(j),c(j),d(j)
   end do
  
   end