2 TCL script to create a nested loop to display multiples of 5 and 10.tcl

#Written By: Udaya Shankar S
#Dated: 4.11.2022
# TCL script to create a nested loop to display multiples of 5 and 10
# Version 1.0

for { set a 0 } { $a <= 50 } { incr a } {
  for { set b $a } {$b <= $a} {incr b} {
    if {[expr $a%5 == 0 ] && [expr $a%10 == 0 ] } {
      puts "$b is divisible by 5 & 10"
    } elseif {[expr $a%5 == 0 ] } {
      puts "$b is divisible by 5 "
    } elseif { [expr $a%10 == 0 ] } {
      puts "$b is divisible by 10"
    } else {
      puts "$b is not divisible by 5 & 10"
    }
  }
}