Даны отрезки 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.