<%
  dim ruudud(5)
  for i=1 to 5 
    ruudud(i)=i*i
  next
  response.write "Kolme ruut on " & ruudud(3)
%>