var
    Str: String;
    I, Count: Integer;
begin
 Writeln('Введите строку');
    Readln(Str);
    Count := 0;
    for I := 1 to Length(Str) do
        if (Str[I] = '+') or (Str[I] = '-') or (Str[I] = '*') or (Str[I] = '/') then
            inc(Count);
    Writeln('Число заданных символов в строке: ', Count);
end.