Пример кода на Pascal:

program CountDelimiters;
var
text: string;
delimiters: set of char;
delimiterCount, i: integer;
begin
delimiters := ['-', '*', '/', ','];
delimiterCount := 0;
writeln('Введите строку текста:');
readln(text);
for i := 1 to length(text) do
begin
if text[i] in delimiters then
delimiterCount := delimiterCount + 1;
end;
writeln('Количество разделителей в строке: ', delimiterCount);
end.

Эта программа считает количество разделителей из множества ['-', '*', '/', ','] в строке текста, введенной пользователем.