Выяснить, сколько раз входит в состав натурального числа цифра 3 - Turbo Pascal

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

Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3

Решение задачи: «Выяснить, сколько раз входит в состав натурального числа цифра 3»

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

uses
  SysUtils;
var
s, str: string;
i,n: Integer;
begin
Writeln('Enter number');
Readln(s);
n:=0;
for i := 1 to Length(S) do
begin
    str:=s[i];
    if str=#51 then    // #51 код цифры 3 в ASCII
    n:=n+1;
    end;
Writeln('n=',n);
Readln;
end.

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

В начале кода используется библиотека SysUtils.
Затем объявляются переменные s и str типа string, а также переменная i типа Integer.
Далее идет приглашение пользователю ввести число.
Переменная n инициализируется значением 0.
Затем начинается цикл for, который выполняется от 1 до Length(s), где Length(s) - длина строки s.
Внутри цикла каждая цифра из строки s проверяется на равенство #51, что соответствует коду цифры 3 в ASCII.
Если цифра равна #51, то переменная n увеличивается на 1.
После завершения цикла выводится значение переменной n.
Код завершается вызовом Readln для чтения следующего ввода пользователя.