CLS
FOR y = 1 TO 24 STEP 1
FOR x = 1 TO 60 STEP 1
FOR i = 0 TO 60 STEP 1
LOCATE 10, 42: PRINT i; "сек", " "
SLEEP 1
NEXT i
LOCATE 10, 34: PRINT x; "мин", " "
NEXT x
LOCATE 10, 26: PRINT y; "час"
NEXT y

END