Сделать таймер от 10 до 1 со скоростью (; delay) 1000
В pascal

For i:=10 downto 1 do
begin
delay(1000) ;
// writeln(i);- если нужен вывод
end;

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.