program Project14; {$APPTYPE CONSOLE} var a,b,c,d:real; begin writeln('Vvedit katety odnogo priamokutnogo trykutnyka a,b'); readln(a,b); writeln('Vvedit katety drugogo priamokutnogo trykutnyka c,d'); readln(c,d); if ((a=c) and (b=d)) or ((a=d) and (b=c))then writeln('Trykutnyky rivni') else writeln('Trykutnyky ne rivni'); readln; end.