Написать программу на VB согластно заданию.

Даны итоги выборов в Думу в городе: по K округам известно число голосовавших за представителей M партий, а также число не участвовавших в голосовании по каждому округу. Выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее P % избирателей. Определить в каких округах выборы состоялись.

Sub Z()Dim k As IntegerDim m As IntegerDim p As SingleDim i As IntegerDim j As IntegerDim n As IntegerDim x As Integerk = InputBox("Количество округов")m = InputBox("Количество партий")p = InputBox("Порог явки изберателей (в %)")s = "Выборы состоялись в округах: "For i = 1 To k    For j = 1 To m        x = InputBox("Округ " & i & ". Голосов за партию №" & j)        n = n + x    Next j    x = InputBox("Округ " & i & ". Не голосовало")    If (n / (n + x) * 100) > p Then s = s & i & "; "    n = 0Next iMsgBox (s)End Sub