Вывести на экран количество символов, обозначающих арифметические операции - Turbo Pascal (29582)

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

Вводится строка. Программа выводит на экран количество символов, обозначающих арифметические операции: «+», «-», «*», «/». Опишите функцию CalcOp. МАССИВЫ использовать НЕЛЬЗЯ.

 var  
   s: string;                                          
                                                       
   kol: integer;  
                                                       
 begin  
                                                       
   readln(s);  
                                                       
   kol := CalcOp(s,'+-*/');                            
   writeln(kol);                                       
 end.

Решение задачи: «Вывести на экран количество символов, обозначающих арифметические операции»

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

function CalcOp(sIn, sOperations : string) : integer;
var 
  res, i : integer;
begin
  res := 0;
  for i := 1 to Length(sIn) do
    if Pos(Copy(sIn,i,1), sOperations) > 0 then Inc(res);
  CalcOp := res;
end;

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

В функции CalcOp объявлены две переменные: res и i.
Переменная res инициализируется значением 0. Она будет использоваться для подсчета количества символов, обозначающих арифметические операции.
Переменная i инициализируется значением 1. Она будет использоваться для перебора символов в строке sIn.
В цикле for происходит проверка каждого символа в строке sIn.
Если текущий символ присутствует в строке sOperations (это можно проверить с помощью функции Pos), то значение переменной res увеличивается на 1.
После завершения цикла, значение переменной res сохраняется в переменную CalcOp и возвращается из функции.