#!/bin/ksh -p

read n ; set -A w $n
set -A q $n

len=$(( ${#w[*]} - 1 ))

i=0
while (( i <= len )) ; do
  q[$i]=$(( q[$i] * q[$i] ))
  if (( i < len )) ; then
    q[$i]=${q[$i]}+
    w[$i]=${w[$i]}*
  fi
  i=$((i+1))
done
  
print -n "(${q[*]}) / (${w[*]}) = " 
print $( print "scale = 5;(${q[*]}) / (${w[*]})" | bc ) 
#set