ИНФОРМАТИКА составить программу нахождения суммы элементов двумерного массива размерностью 3 на 4 состоящего из целых чисел 50б

1.
var p:real; i:integer;
begin
write('цена 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.

Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00

2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.

Пример:
a, b: 5 10
p = 151200

3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.

Пример:
n =5
s = 2.283

Код на VBScript - проверялся, работает

Function SumOfDividers(ByVal num)
    SumOfDividers = 0

    for i = 1 to num - 1
        if num mod i = 0 then SumOfDividers = SumOfDividers + i
    next
End Function

Sub Zadanie23317569(ByVal n)
    for i = 2 to n
        k = SumOfDividers(i)
        if SumOfDividers(k) = i then Msgbox i & " " & k
    next
End Sub

Zadanie23317569 300

Код на VB.Net  - исправление как догадалась, не проверялось

Sub Main(ByVal n)
    Dim i As Integer
    Dim k As Integer

    for i = 2 to n
        k = SumOfDividers(i)
        if SumOfDividers(k) = i then Console.WritelLine(i & " " & k)
    next
End Sub

Function SumOfDividers(ByVal num As Integer) As Integer
    Dim i As Integer
    SumOfDividers = 0

    for i = 1 to num - 1
        if num mod i = 0 then SumOfDividers = SumOfDividers + i
    next
End Function