var
str : string;
a, b : char;
count : integer;
begin
assign (input, 'file.txt'); reset (input);
while not eof do
readln (str);
if length (str) > 1 then a := str[2]
else a := '1';
if length (str) > 1 then b := str[2]
else b := '1'; //Заведомо неверные данные
if (a ='+') and (b = '-') then inc (count);
end;
writeln (count);
end.
var
str : string;
a, b : char;
count : integer;
begin
assign (input, 'file.txt'); reset (input);
while not eof do
begin
readln (str);
if length (str) > 1 then a := str[2]
else a := '1';
if length (str) > 1 then b := str[2]
else b := '1'; //Заведомо неверные данные
if (a ='+') and (b = '-') then inc (count);
end;
writeln (count);
end.