Кількість операцій

Визначити загальну кількість операцій додавання (+), віднімання (-) та множення (*) у заданому арифметичному виразі.

Вхідні дані

У єдиному рядку задано арифметичний вираз без дужок та пропусків. Кількість символів у виразі не перевищує 250.

Вихідні дані

Вивести кількість вказаних операцій.

Вхідні дані

-1+2*3+a

Вихідні дані

3

program kilkist;

var b : string;

k,i : integer;

BEGIN

readln (b);

k:=0;

for i:=2 to length(b) do

if (b[i]='+') or (b[i]='*') or (b[i]='-') then k:=k+1;

writeln (k);

END.