Программа подсчета зайцев - Turbo Pascal

Формулировка задачи:

Пример программы со стр. 57 Самоучителя на тему "Метка".. В чём смысл этой программы. После запуска она зацикливаетэ

LABEL m1, met5;
var n, k: integer;
begin
             n:= 10;
             k:= 0;
writeln(' Считаем зайцев');
met5:     write(n);
               n:= n + k;
               goto m1;
               n:= n + 1;
m1:         write(' зайцев ');
               readln;
               k:= k + 1;
               goto met5; 
writeln(' Посчитали зайцев ');
     readln
end.

На выходе имеем:

   Считаем зайцев
зайцев
зайцев
зайцев
зайцев
зайцев
зайцев
зайцев

и так до бесконечности. Как её прекратить. И как вернуть её в исходное состояние – окно редактора. Комбинация клавиш Ctrl + Break не возвращает в исходное состояние, а только фиксирует зацикленное состояние.

Решение задачи: «Программа подсчета зайцев»

Листинг программы

uses crt;
LABEL m1, met5, kn;
var n, k: integer;
begin
clrscr;
             n:= 10;
             k:= 0;
writeln(' Считаем зайцев');
met5:     write(n);
               n:= n + k;
               goto m1;
               n:= n + 1;
m1:         write(' зайцев ');
               readln;
               k:= k + 1;
               if n>20 then goto kn
               else goto met5;
kn:writeln(' Посчитали зайцев ');
readln
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных n и k типа integer (целое число). Значение переменной n равно 10, а k равно 0.
Выводится сообщение Считаем зайцев.
Переход к метке met5.
Выводится значение переменной n.
К переменной n добавляется значение переменной k, затем переход к метке m1.
Значение переменной n увеличивается на 1.
Переход к метке m1.
Выводится сообщение зайцев.
Происходит чтение значения из стандартного ввода (клавиатуры), которое присваивается переменной n.
Значение переменной k увеличивается на 1.
Если значение переменной n больше 20, то происходит переход к метке kn, иначе переход к метке met5.
Выводится сообщение Посчитали зайцев.
Происходит чтение значения из стандартного ввода (клавиатуры). Таким образом, программа будет продолжать работу до тех пор, пока пользователь не введет число больше 20.