while counter <> 100 do (counter := counter + 1)