Public Class Program
  Shared Sub Main()
    Dim s As Long = Long.Parse(Console.ReadLine())
    ' (x1, y1) = (0, 0) , (x2, y2) = (1000000000, 1) とする '
    Dim x2 As Long = 1000000000
    Dim y3 As Long = s \ x2
    Dim x3 As Long = s Mod x2
    Console.WriteLine("0 0 1000000000 1 " & x3.ToString() & " " & y3.ToString())
  End Sub
End Class