Var x:integer;
Begin
Read(x);
If (x<1000 and x>99 and x mod 2=0) then write('является')
Else write('не является');
End;
Var x:integer;
Begin
Read(x);
If (x<1000 and x>99 and x mod 2=0) then write('является')
Else write('не является');
End;