Порошок «в программе forrest в теле цикла»

в программе forrest в теле цикла за оператором begin стоит всего одна команда беги