3-purple.f

program hello
  integer i, j
  do i = 1, 100, 7
    j = i * i
    print *, i, ": Hello Purple!"
    print *, j
  end do
end program hello