program dd
      integer x(5)  
      real s
      read(*,*)x(5)
      s=0
     do 10 I=1,5
      s=s+X(I)**2
   10 continue
      write(*,*)s
      end

你是要求平方和

read(*,*)x(5)
这句不对，这样的话程序只能从键盘读入一个整数并把它赋给数组的第五个整数
可以改成
  read(*,*) x
或者也可以通过循环读入每一个元素