write a tcl program to print all the numbers from 1 to 100.which is divisible by 4 and skip when its in 70's and 90's.

Sure, here is a simple Tcl program that prints all numbers from 1 to 100, which are divisible by 4, but skips those in the 70's and 90's:

for {set i 1} {$i <= 100} {incr i} {
    if {$i % 4 == 0} {
        if {$i >= 70 && $i < 80} {
            continue
        }
        if {$i >= 90 && $i < 100} {
            continue
        }
        puts $i
    }
}

Here's how it works:

1. The for loop iterates over the numbers from 1 to 100.
2. The if statement checks if the current number is divisible by 4.
3. If the number is in the 70's or 90's, the continue statement skips the current iteration and moves to the next number.
4. If the number is not in the 70's or 90's, it is printed using the puts command.