Const
 X:Array[1..3,1..3] of Real=((0.2,3,4),(0.1,0.2,3.4),(7,8,9));
 Y:Array[1..4,1..4] of Real=((1,3,4,7),(8,9,-4,0),(2,3,7,8),(1,3,4,-3));
 RX=0.5;
 RY=2.5;

Type
 Arr=Array[1..4,1..4] of Real;

Var
 i,j,NumX,NumY:Byte;
 X1:Arr;
 A:Boolean;

Function Num(Z:Arr;N:byte;R:Real):Byte;
var
 p,q,M:Byte;
begin
 M:=0;
 for p:=1 to N do
  for q:=1 to N do
   if Z[p,q]<R then Inc(M);
 Num:=M;
end;

Begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   X1[i,j]:=X[i,j];
 NumX:=Num(X1,3,RX);
 NumY:=Num(Y,4,RY);
 A:=(NumX>=NumY);
 Writeln(A);
 Readln
End.