помогите написать на паскале и visual basic программу

var s, i: integer;

begin

s:= 0;

for i:= 0 to 10 do

if i mod 2 = 0 then s:= s + i; {если остаток от деления на 2 равен 0, то прибавляй i к сумме}

write('Сумма равна ', s);

end.

Option Explicit

Private Sub Command1_Click()
Dim z As Double, x As Double, a As Double, b As Double, c As Double
a = Val(Replace(InputBox("a = ", "Ввод данных", -2.5), ",", "."))
b = Val(Replace(InputBox("b = ", "Ввод данных", 5.3), ",", "."))
c = Val(Replace(InputBox("c = ", "Ввод данных", 4.1), ",", "."))
x = Val(Replace(InputBox("x = ", "Ввод данных", 0.76), ",", "."))

If min(min(a, b), c) > 0 And a < 0 Then '???
z = a * Sqr(Abs(1 - x)) + b * 2
ElseIf max(max(a, b), c) < 0 And a > 0 Then '???
z = Sqr(Abs(Log(3) - x) ^ 2)
Else
z = c / (Cos(x ^ 3) + b)
End If

MsgBox "a = " & a & vbCrLf & "b = " & b & vbCrLf & "c = " & c & vbCrLf & "x = " & x & vbCrLf & _
"min(a, b, c) = " & min(min(a, b), c) & vbCrLf & "max(a, b, c) = " & max(max(a, b), c) & vbCrLf & _
"z = " & Round(z, 2)
End Sub

Private Function max(ByVal a As Double, ByVal b As Double) As Double
If a > b Then max = a Else max = b
End Function

Private Function min(ByVal a As Double, ByVal b As Double) As Double
If a < b Then min = a Else min = b
End Function

О_о
Че за лабуда?

Несамостоятельный разряд — разряд, протекающий за счёт внешнего ионизатора.
Самостоятельный разряд — разряд, который будет продолжать гореть и после отключения внешнего ионизатора.
Переход от несамостоятельного разряда к самостоятельному называется электрическим пробоем.