Написать программу определения, является ли треугольник со сторонами a,b,c, равнобедренным

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.