спасибо за совет
, я уже разобрался воспользовавшись кодом:
x=6
Repeat ;цикл Repeat...Until
If MilliSecs() > timer + 1000 ;если системное время больше переменной time + 1000(1 секунда), то
x=x-1 ;уменьшаем счётчик
timer=MilliSecs() ;заново заносим системное время
EndIf ;конец условия
Print x ;вывод x
If x=0 Exit
Until KeyHit(1) ;до тех пор пока не нажата клавиша Esc
End ;Выход
вот что у меня получилось
http://yadi.sk/d/wNlBCsx-6gXk5