Даны отрезки a b c d, проверить можно ли из этих отрезков построить равнобедренную трапецию.

Var a,b,c,d:integer;
beginwriteln('введите длины сторон трапеции');
readln(a,b,c,d);
if (a=0) or (b=0) or (c=0) or (d=0) then writeln ('нельзя')
else if((a=b) or (a=c) or (a=d)) or ((b=c) or (b=d)) or (c=d) then writeln ('можно')
else writeln('нельзя');
end.