var zlomek: real;
    N: integer;
    Ntina: real;
    Soucet: real;
    Pocet: integer;

begin
   N := 1;
   Soucet := 1.0;
   while Soucet = 1.0 do
   begin
      Ntina := 1 / N;

      Soucet := 0.00;
      Pocet  := 0;
      while Pocet < N do
      begin
         Soucet := Soucet + Ntina;
         Pocet  := Pocet + 1
      end;

      N := N + 1
   end


end.










var x: integer;
    max: integer;
begin
   x := 20*1000;
   x := x * x;




   read( x );
   write( x+1 )
end.