:пример
pln Выводим текст 111 номер = #номер$
pause 300
proc проверяем_вычитание(1)

pln Выводим текст 222 номер = #номер$
pause 300
proc проверяем_вычитание(2)


pln Выводим текст 333 номер = #номер$
pause 300
proc проверяем_вычитание(8)


pln Выводим текст 444 номер = #номер$
pause 300
proc проверяем_вычитание(3)


pln Выводим текст 555 номер = #номер$
pause 300
proc проверяем_вычитание(1)


pln Выводим текст 666 номер = #номер$
pause 300
proc проверяем_вычитание(2)


pln Выводим текст 777 номер = #номер$
pause 300
proc проверяем_вычитание(1)


pln Выводим текст 888 номер = #номер$
pause 300
proc проверяем_вычитание(5)


pln Выводим текст 999 номер = #номер$
pause 300
proc проверяем_вычитание(1)


end

:проверяем_вычитание
номер = номер - проверяем_вычитание_1
if номер <=0 then goto конец_вычитания
end

:конец_вычитания
cls
pln Выводим текст Конец_вычитание номер = #номер$
anykey
pln Выводим текст просто
end