program Project7; {$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) then writeln('Romb') else writeln('Ne romb'); readln; end.