program Project6; {$APPTYPE CONSOLE} var a,b,c,d:integer; begin writeln('Vvedit storony chotyrykutnyka a,b,c,d'); readln(a,b,c,d); if (a=b) and (b=c) and (c=d) and (d=a) then writeln('Rivnostoronnyi') else writeln('Trykutnyk ne rivnostoronnyi'); readln; end.