program prodscal
parameter ( n=10 )
integer i
real a(n),b(n),res
do 10 i=1,n
10 read *,a(i)
do 20 i=1,n
20 read *,b(i)
res=0.
do 30 i=1,n
30 res=res+a(i)*b(i)
print *,res
end
Compilez le (commande g77) et exécutez le.