program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i,j,k,d,dv,dn,dt,dc:integer;
function kttg(x,y,z:integer):boolean;
begin
    if (x<=0) or (y<=0) or (z<=0) then exit(false)
    else if (x+y<=z) or (x+z<=y) or (y+z<=x) then exit(false)
        else exit(true);
end;
function kttgv(x,y,z:integer):boolean;
begin
    if (x*x+y*y=z*z) or (x*x+z*z=y*y) or (y*y+z*z=x*x) then exit(true)
        else exit(false);
end;
function kttgt(x,y,z:integer):boolean;
begin
    if (x*x+y*y<z*z) or (x*x+z*z<y*y) or (y*y+z*z<x*x) then exit(true)
        else exit(false);
end;
function kttgn(x,y,z:integer):boolean;
begin
    if (x*x+y*y<=z*z) or (x*x+z*z<=y*y) or (y*y+z*z<=x*x) then exit(false)
        else exit(true);
end;
function kttgc(x,y,z:integer):boolean;
begin
    if (x=y) or (x=z) or (y=z) then exit(true) else exit(false);
end;
BEGIN
    clrscr;
    repeat
        readln(n);
    until (n>=3);
    for i:=1 to n do read(A[i]);
    d:=0; dv:=0; dn:=0; dt:=0; dc:=0;
    for i:=1 to n-2 do
        for j:=i+1 to n-1 do
            for k:=j+1 to n do
                if kttg(A[i],A[j],A[k]) then
                    begin
                        d:=d+1;
                        if kttgv(A[i],A[j],A[k]) then dv:=dv+1;
                        if kttgn(A[i],A[j],A[k]) then dn:=dn+1;
                        if kttgt(A[i],A[j],A[k]) then dt:=dt+1;
                        if kttgc(A[i],A[j],A[k]) then dc:=dc+1;
                    end;
    writeln('Co ',d,' tam giac');
    writeln('Co ',dv,' tam giac vuong');
    writeln('Co ',dn,' tam giac nhon');
    writeln('Co ',dt,' tam giac tu');
    writeln('Co ',dc,' tam giac can');
    readln;    readln;
end.

program Hello;
uses crt,math;
var n,a,b,c,d,e,i,tg,v,ca,nh,t:longint;
    s:array[1..100000] of longint;
begin
    readln(n);
    for i:= 1 to n do
        read(s[i]);
    for a:= 1 to n do
        for b:= a + 1 to n do
            for c:= b + 1 to n do
                if (a <> b) and (b <> c) and (c <> d) then
                    if (abs(s[b] - s[c]) < s[a]) and (s[a] < s[b] + s[c]) then 
                        begin
                            d:= max(s[a],max(s[b],s[c]));
                            d:= 2 * d * d;
                            e:= s[a] * s[a] + s[b] * s[b] + s[c] * s[c];
                            if (s[a] = s[b]) or (s[b] = s[c]) or (s[c] = s[a]) then inc(ca);
                            if e = d then inc(v);
                            if e > d then inc(nh);
                            if e < d then inc(t);
                            inc(tg);
                        end;
    writeln('Tao thanh: ');
    writeln(' > ', tg, ' tam giac.');
    writeln(' > ', v, ' tam giac vuong.');
    writeln(' > ', ca, ' tam giac can.');
    writeln(' > ', nh, ' tam giac nhon.');
    writeln(' > ', t, ' tam giac tu.');
end.