Математическое моделирование. Решить задачу линейного программирования графическим умоляю

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

1
var
  i, j, n: integer;
  a: array[1..3, 1..8]of integer;
begin
for i := 1 to 3 do
  begin   
  for j := 1 to 8 do
    begin
    a[i, j] := random(-9, 9);
    write(a[i, j]:3);
    if a[i, j] < 0 then n := n + 1;
    end;
  writeln;
  end; 
writeln('Количество отрицательных: ', n);    
end.

2
var
  i, j, n: integer;
  p: array[1..6, 1..7]of integer;
begin 
for i := 1 to 6 do
  begin
  for j := 1 to 7 do
    begin
    p[i, j] := random(-9, 9);
    write(p[i, j]:3);
    end;
  writeln;
  end; 
write('Какую строку вывести: '); 
readln(n); 
for j:=1 to 7 do  write(p[n,j]:3);
end.

3
var
  i, j, n: integer;
  p: array[1..6, 1..7]of integer;
begin 
for i := 1 to 6 do
  begin   
  for j := 1 to 7 do
    begin
    p[i, j] := random(-9, 9);
    write(p[i, j]:3);
    end;
  writeln;
  end; 
write('Какую строку изменить: '); 
readln(n); 
for j:=1 to 7 do p[n,j]:=5; 
for i := 1 to 6 do
  begin   
  for j := 1 to 7 do write(p[i, j]:3);
  writeln;
  end;
end.

4
var
  i, j, n: integer;
  a: array[1..10, 1..10]of integer;
begin 
for i := 1 to 10 do
  begin
  for j := 1 to 10 do
    begin
    a[i, j] := random(-9, 9);
    write(a[i, j]:3);
    end;
  writeln;
  end; 
for j:=1 to 10 do a[j,j]:=0; 
writeln('Измененный массив: '); 
for i := 1 to 10 do
  begin
  for j := 1 to 10 do write(a[i, j]:3);
  writeln;
  end;
end.