对了，忘了说，要PASCAL的...

你这里应该是平面几何吧，要是立体几何这题就麻烦多了。
（我是按平面几何做的）
算法不是太好，太大的数据会出问题。
  var
    l:array [1..100] of shortint;
    g:array [1..100,1..100] of shortint;
    m,n:word;
    i,j,c:word;
    s:string;
    p,q:word;
    t:longint;
    pv:shortint;
    code:integer;
begin
  readln(m,n);
  fillchar(l,m,0);
  for i:=1 to n do begin
    readln(s);
    delete(s,1,1);
    val(copy(s,1,pos(' ',s)-1),p,code);
    if s[pos(' ',s)+1]='p' then pv:=1
                           else pv:=-1;
    s:=copy(s,pos(' ',s)+4,length(s)
       -(pos(' ',s)+4)+1);
    val(s,q,code);
    g[p,q]:=pv; g[q,p]:=pv;
  end;
  p:=0;q:=0;
  l[1]:=1;
  repeat
    c:=0;
    for i:=1 to m do if l[i]<>0 then
     for j:=1 to m do if l[j]=0 then
      if g[i,j]<>0 then begin
        l[j]:=l[i]*g[i,j]; c:=1;
      end;
  until c=0;
  p:=0; q:=0;
  for i:=1 to m do if l[i]=1 then inc(p)
                             else inc(q);
  writeln((p*(p-1)+q*(q-1)) div 2);
end.