uses crt,math;
var i,j,k,n,d1,d2,d3,d4,d5,ma:longint;
    a:array[1..10000] of longint;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
       read(a[i]);
    for i:=1 to n do
       for j:=1 to n do
          for k:=1 to n do
             if (i<>j) and (j<>k) and (i<>k) then
                begin
                    ma:=max(max(a[i],a[j]),a[k]);
                    if a[i]+a[j]+a[k]>2*ma then
                        begin
                            inc(d1);
                            if a[i]*a[i]+a[j]*a[j]+a[k]*a[k]=2*ma*ma then
                               inc(d2);
                            if a[i]*a[i]+a[j]*a[j]+a[k]*a[k]<2*ma*ma then
                               inc(d3);
                            if a[i]*a[i]+a[j]*a[j]+a[k]*a[k]>2*ma*ma then
                               inc(d4);
                            if (a[i]=a[j])or(a[j]=a[k])or(a[i]=a[k]) then
                               inc(d5);
                        end;
                end;
    writeln('Co ',d1,' cach tao tam giac');
    writeln('Co ',d2,' cach tao tam giac vuong');
    writeln('Co ',d3,' cach tao tam giac tu');
    writeln('Co ',d4,' cach tao tam giac nhon');
    writeln('Co ',d5,' cach tao tam giac can');
readln;readln;
end.

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