Найдите значение логического выражения (1 буква имени согласная) или не (последняя буква имени гласная) для имен Наташа, Алена, Василий, Артем.
В ответе выберите имена для которых значение логического выражения равно единице.

Василий
Алена
Нет такого имени
Наташа
Артем​

и c постусловием, и с предусловием.

Sub slot()
    Dim c As Double
    Dim c1 As Double
    Dim c2 As Double
    Dim c3 As Double
    Dim z As Integer
    Dim b As Integer
    Dim T As Integer
    Dim n As Integer
    n = 100 ' nado golov
    c = 100 ' vsego deneg
    c1 = 10 ' za bika
    c2 = 5 'za korovy
    c3 = 0.5 'za telenka
    z = 0
    Do
        b = 0
        Do While b <= c / c2
            T = 0
            Do While T <= c / c3
                If z + b + T = n Then
                    If z * c1 + b * c2 + T * c3 = c Then
                        MsgBox ("bikov: " & z & "korov: " & b & "Teliat: " & T)
                    End If
                End If
                T = T + 1
            Loop
            b = b + 1
        Loop
        z = z + 1
    Loop Until z > c / c1
End Sub

Const
  percent = 13.0;
  limit = 250.0;
  plan = 180.0;
  perv_zapas = 1000.0;

var
  year: integer;
  zapas, ulov: real;

begin
  Writeln('Год Запас рыбы,т. Улов,т');
  zapas := perv_zapas;
  for year := 1 to 20 do
  begin
    zapas := zapas * (1 + percent / 100);
    if zapas - plan < 250 then ulov := zapas - 250
    else ulov := plan;
    zapas := zapas - ulov;
    if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
    else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
  end
end.

Результат выполнения программы:
Год Запас рыбы,т. Улов,т
 1     950.0       180.0
 2     893.5       180.0
 3     829.7       180.0
 4     757.5       180.0
 5     676.0       180.0
 6     583.9       180.0
 7     479.8       180.0
 8     362.1       180.0
 9     250.0       159.2 - меньше плана
10     250.0        32.5 - меньше плана
11     250.0        32.5 - меньше плана
12     250.0        32.5 - меньше плана
13     250.0        32.5 - меньше плана
14     250.0        32.5 - меньше плана
15     250.0        32.5 - меньше плана
16     250.0        32.5 - меньше плана
17     250.0        32.5 - меньше плана
18     250.0        32.5 - меньше плана
19     250.0        32.5 - меньше плана
20     250.0        32.5 - меньше плана