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

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

Sub Z ()

Dim k As Integer

Dim m As Integer

Dim p As Single

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim x As Integer

k = 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 = 0

Next i

MsgBox (s)

End Sub