program vykricniky;
uses crt;
var X,Y,a,z: string;
pos1,pos2,m :shortint;
b,c :longint;  
   

begin
 clrscr;
write('x: ');{zadávanie vstupov}{}
ReadLn(X);
write('y: ');
 readln(Y);

pos1 := Pos(' ',x);{ určí sa poloha medzere tj. kde číslo končí}
z := copy(X, 1, pos1-1);{číslo sa skopíruje}
val(Z, b,m);{číslo sa prekonvertuje z typu string na longint}

pos2:= Pos(' ',Y);{ určí sa poloha medzere tj. kde číslo končí}
a := Copy(Y, 1, pos2-1);{číslo sa skopíruje}
val(a, c,m);{číslo sa prekonvertuje z typu string na longint}


if b<C then writeln(Y);{porovnávanie čísel}
if C<b then writeln(X);
if C=B then writeln('ROVNAKE');

  readln;
end.