// Całkowity pierwiastek
// Data:   10.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------

program prg;

var
  x : double;
  i, a, r1, r2 : longword;

begin
  readln ( x );
  a := 0; r1 := 1; r2 := 2; i := 0;
  while a <= x do
  begin
    inc ( a, r1 ); inc ( r1, r2 );
    inc ( i );
  end;
  dec ( i );
  writeln ( i );
  writeln ( i * i );
  writeln;
end.

// Całkowity pierwiastek
// Data:   10.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------

#include <iostream>

using namespace std;

int main( )
{
  double x;
  unsigned int i, a, r1, r2;

  cin >> x;
  a = 0; r1 = 1; r2 = 2;
  for( i = 0; a <= x; i++ )
  {
    a += r1; r1 += r2;
  }
  i--;
  cout << i << endl
       << i * i << endl
       << endl;
  return 0;
}

' Całkowity pierwiastek
' Data:   10.05.2008
' (C)2020 mgr Jerzy Wałaszek
'---------------------------

Dim As Double x
Dim As Uinteger i, a, r1, r2

Input x
a = 0: r1 = 1: r2 = 2: i = 0
While a <= x
  a += r1: r1 += r2: i += 1
Wend
i -= 1
Print i
Print i * i
Print
End

// Całkowity pierwiastek kwadratowy
// Data:   11.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------------

program prg;

var
  x, p1, p2 : longint;

begin
  readln ( x );
  if x <= 1 then p2 := x
  else
  begin
    p1 := 0; p2 := x shr 1;
    while abs ( p1 - p2 ) > 1 do
    begin
      p1 := p2;
      p2 := ( p2 + x div p2 ) shr 1;
    end;
    while p2 * p2 > x do dec ( p2 );
  end;
  writeln ( p2 );
  writeln ( p2 * p2 );
  writeln;
end.

// Całkowity pierwiastek kwadratowy
// Data:   11.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------------

#include <iostream>

using namespace std;

int main( )
{
  int x, p1, p2;

  cin >> x;
  if( x <= 1 ) p2 = x;
  else
  {
    p1 = 0; p2 = x >> 1;
    while( abs ( p1 - p2 ) > 1 )
    {
      p1 = p2;
      p2 = ( p2 + x / p2 ) >> 1;
    }
    while( p2 * p2 > x ) --p2;
  }
  cout << p2 << endl
       << ( p2 * p2 ) << endl
       << endl;
  return 0;
}

' Całkowity pierwiastek kwadratowy
' Data:   11.05.2008
' (C)2020 mgr Jerzy Wałaszek
'---------------------------------

Dim As Integer x, p1, p2

Input x
If x <= 1 Then
  p2 = x
Else
  p1 = 0: p2 = x Shr 1
  While Abs ( p1 - p2 ) > 1
    p1 = p2
    p2 = ( p2 + x \ p2 ) Shr 1
  Wend
  While p2 * p2 > x: p2 -= 1: Wend
End If
Print p2
Print p2 * p2
Print
End

// Całkowity pierwiastek kwadratowy
// Data:   11.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------------

program prg;

var
  x, px, mb, t : qword;

begin
  readln ( x );
  px := 0; mb := 1 shl 62;
  while mb > x do mb := mb shr 2;
  while mb <> 0 do
  begin
    t := px + mb;
    if x >= t then
    begin
      dec ( x, t ); px := t + mb;
    end;
    px := px shr 1; mb := mb shr 2;
  end;
  writeln ( px );
  writeln ( px * px );
  writeln;
end.

// Całkowity pierwiastek kwadratowy
// Data:   11.05.2008
// (C)2020 mgr Jerzy Wałaszek
//---------------------------------

#include <iostream>

using namespace std;

int main( )
{
  unsigned long long x, px, mb, t;

  cin >> x;
  px = 0; mb = 1; mb <<= 62;
  while( mb > x ) mb >>= 2;
  while( mb )
  {
    t = px + mb;
    if( x >= t )
    {
      x -= t; px = t + mb;
    }
    px >>= 1; mb >>= 2;
  }
  cout << px << endl
       << ( px * px ) << endl << endl;
  return 0;
}

' Całkowity pierwiastek kwadratowy
' Data:   11.05.2008
' (C)2020 mgr Jerzy Wałaszek
'---------------------------------

Dim As Ulongint x, px, mb, t

Input x
px = 0: mb = 1 Shl 62
While mb > x: mb = mb Shr 2: Wend
While mb
  t = px + mb
  If x >= t Then
    x -= t: px = t + mb
  End If
  px = px Shr 1: mb = mb Shr 2
Wend
Print px
Print px * px
Print
End