Program gt; var a,b,c:real; begin readln(a,b,c); if((a=b)or(a=c)or(b=c))and(a>0)and(b>0)and(c>0)then writeln('yes')else writeln('no'); end.
а можно как нибудь попонятнее ..
за отмеченное нарушение нет