Visual Basic задача

Для решения данной задачи в Visual Basic можно использовать следующий код:

```vb
Module Main
Sub Main()
Dim S As Double = 1000 ' Сумма закупки в рублях
Dim N As Double = 20 ' Наценка в процентах

Dim zakupka As Double = S ' Сумма закупки
Dim prodazha As Double = S * (1 + N / 100) ' Сумма продажи с наценкой
Dim pribyl As Double = prodazha - zakupka ' Прибыль

Console.WriteLine("Прибыль от продажи куриных окорочков: " & pribyl & " руб")
End Sub
End Module
```

В данном коде мы задаем начальные значения для суммы закупки `S` и наценки `N`, затем вычисляем сумму продажи с наценкой и прибыль, полученную продавцом. Результат выводится на экран с помощью функции `Console.WriteLine()`.