{
    Problema Pachete
}

Program Pachete;

Type numere = array[1..50000,1..2] of  Longint;

Var c : numere;
    n, i, j : Integer;
    Ox, Oy : Longint;

Begin
    Assign( input, 'pachete.in' );
    Reset( input );
        Readln( n );
        Readln( Ox, Oy );
        For i := 1 to n do
            Readln( c[i,1], c[i,2] );
    Close( input );

    Assign( output, 'pachete.out' );
    Rewrite( output );
        Writeln( 4 );
    Close( output );
End.