Перевести код вычисления выражения с Pascal - Visual Basic .NET (64645)

Формулировка задачи:

Помогите,перевести код вычисления выражения с Pascal на VB.net,заранее благодарен

                    Листинг программы
                
 
                        
                          
                    
program pr;
 
const
  d = 5.3;
 
var
  y: real;
  pp: longint;
  ss: real;
 
function summ: real;
var
  s: real;
  i: integer;
  a: array [1..18] of real := (6, 4, 3, 16, 10, 17, 9, 5, 7, 3, 14, 0.5, 11, 0.6, 5, 3, 2, 9);
begin
  s := 0;
  i := 1;
  repeat 
    s := s + (a[i] - d);
    i := i + 1;
  until i > 18;
  summ := s;
end;
 
function proiz: longint;
var
  i: integer;
  p, h, c0: integer;
begin
  p := 1;
  i := 1;
  h := 0;
  c0 := 15;
  repeat
    p := p * (c0 + h);
    h := h + 5;
    i := i + 1;
  until i > 3;
  proiz := p;
end;
 
begin
  pp := proiz;
  ss := summ;
  y := pp - ss;
  writeln('y= ', y);
end.

Решение задачи: «Перевести код вычисления выражения с Pascal»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Class Form1
    Const d = 5.3
    Dim y As Double
    Dim pp As Long
    Dim ss As Double
 
    Private Function summ() As Double
        Dim s As Double = 0
        Dim a(17) As Double
        a = {6, 4, 3, 16, 10, 17, 9, 5, 7, 3, 14, 0.5, 11, 0.6, 5, 3, 2, 9}
        For i = 0 To 17
            s += (a(i) - d)
        Next
        summ = s
    End Function
 
    Private Function proiz() As Long
        Dim p As Integer = 1
        Dim h As Integer = 0
        Dim c0 As Integer = 15
        For i = 0 To 2
            p = p * (c0 + h)
            h = h + 5
        Next
        proiz = p
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pp = proiz()
        ss = summ()
        y = pp - ss
        MsgBox("y= " & y)
    End Sub
End Class