Imports System
 
Public Class Test
	Public Shared Sub Main()
	  Dim k, i, m, h, k1 As Integer
  Dim S, P As Double
  Dim X As String
1:M = Val(Console.ReadLine())
  h = Val(Console.ReadLine())
  k = Val(Console.ReadLine())
  S = 0 : P = 1 : i = 0
  k1 = K + h * M
2:S = S+ (i / Math.Sqrt(i^2 + 2))
  P = P * (2 * (i^2) +1)
  i = i + 1
  Do While k < k1
   If i <= k Then
    GoTo 2
   End If
   Console.WriteLine("S={0}, P={1}, при k={2}", S, P, k)
   k = k + h
  Loop
  Console.WriteLine("Выйти?")
  X = (Console.ReadLine())
  If X = "нет" Then
   GoTo 1
  End If
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCSAgRGltIGssIGksIG0sIGgsIGsxIEFzIEludGVnZXIKICBEaW0gUywgUCBBcyBEb3VibGUKICBEaW0gWCBBcyBTdHJpbmcKMTpNID0gVmFsKENvbnNvbGUuUmVhZExpbmUoKSkKICBoID0gVmFsKENvbnNvbGUuUmVhZExpbmUoKSkKICBrID0gVmFsKENvbnNvbGUuUmVhZExpbmUoKSkKICBTID0gMCA6IFAgPSAxIDogaSA9IDAKICBrMSA9IEsgKyBoICogTQoyOlMgPSBTKyAoaSAvIE1hdGguU3FydChpXjIgKyAyKSkKICBQID0gUCAqICgyICogKGleMikgKzEpCiAgaSA9IGkgKyAxCiAgRG8gV2hpbGUgayA8IGsxCiAgIElmIGkgPD0gayBUaGVuCiAgICBHb1RvIDIKICAgRW5kIElmCiAgIENvbnNvbGUuV3JpdGVMaW5lKCJTPXswfSwgUD17MX0sINC/0YDQuCBrPXsyfSIsIFMsIFAsIGspCiAgIGsgPSBrICsgaAogIExvb3AKICBDb25zb2xlLldyaXRlTGluZSgi0JLRi9C50YLQuD8iKQogIFggPSAoQ29uc29sZS5SZWFkTGluZSgpKQogIElmIFggPSAi0L3QtdGCIiBUaGVuCiAgIEdvVG8gMQogIEVuZCBJZgoJRW5kIFN1YgpFbmQgQ2xhc3M=

MTAKMgox

10
2
1