Сделать таймер от 10 до 1 со скоростью (; delay) 1000 В pascal
For i:=10 downto 1 do begin delay(1000) ; // writeln(i);- если нужен вывод end;