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

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

Вводится строка. Программа выводит на экран количество символов, обозначающих арифметические операции: «+», «-», «*», «/». Опишите функцию CalcOp.

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

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

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

function CalcOp(s:string):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to length(s) do
if s[i] in ['+','-','*','/'] then k:=k+1;
CalcOp:=k;
end;
var s: string;
begin
readln(s);
write(CalcOp(s));
end.

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

В функции CalcOp объявлены две переменные i и k типа byte.
Переменная k инициализируется значением 0.
В цикле for происходит проверка каждого символа в строке s.
Если текущий символ является одним из символов арифметических операций (['+','-','*','/']), то переменная k увеличивается на 1.
После выполнения цикла, значение переменной k присваивается переменной CalcOp.
В основной части программы объявлена переменная s типа string.
С помощью функции readln считывается строка с консоли.
Значение переменной CalcOp выводится на экран с помощью функции write.