program Project2; {$APPTYPE CONSOLE} var a,b:array[1..10000] of integer; n,m:integer; begin n:=10000; m:=10000; writeln('vvedit a'); readln(a[n]); writeln('vvedit b'); readln(b[m]); if a[n]>b[m] then writeln('1-e chuslo bilshe'); if a[n]b[m] else a[n]