Нужно найти количество троек во введённом числе путём разбиения этого числа на цифры - Free Pascal

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

Надо написать программу , которая могла бы посчитать кол-во троек в любом числе. Ну, например, в 327,5643.

Решение задачи: «Нужно найти количество троек во введённом числе путём разбиения этого числа на цифры»

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

var
 m, n: longint;
 count: byte;
begin
readln(n);count:=0;
while ( n > 0 ) do begin
       m := n mod 10;
       if( m = 3 ) then inc(count);
       n := n div 10;
end;
if count = 0 then writeln('троек нет') else writeln(count);
readln;
end.

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

В первой строке объявляются три переменные: m, n и count.
Переменная n инициализируется вводом числа с клавиатуры.
Переменная count инициализируется нулем, который является базовым значением для счетчика.
Далее используется цикл while, который будет выполняться до тех пор, пока число n больше нуля.
Внутри цикла происходит следующее: а) переменная m получает остаток от деления числа n на 10 (то есть последнюю цифру числа). б) если значение переменной m равно 3, то к счетчику count прибавляется единица. в) число n делится на 10 (то есть от него отбрасывается последняя цифра).
После окончания цикла, если значение переменной count равно нулю, то выводится сообщение троек нет, в противном случае выводится значение переменной count.
В конце программы запрашивается ввод с клавиатуры, чтобы программа не закрылась сразу после выполнения.