Водномерном целочисленном массиве, состоящем из 3 элементов вычислить:
1. порядковый номер 1 четного элемента
2. порядковый номер последнего нечетного элемента
3. сумму всех четных элементов массива
4. произведение всех положительных элементов кратных 3

Всего натуральных чисел, которые удовлетворяют условию - 55
22*0 + 14*604 = 8456
22*7 + 14*593 = 8456
22*14 + 14*582 = 8456
22*21 + 14*571 = 8456
22*28 + 14*560 = 8456
22*35 + 14*549 = 8456
22*42 + 14*538 = 8456
22*49 + 14*527 = 8456
22*56 + 14*516 = 8456
22*63 + 14*505 = 8456
22*70 + 14*494 = 8456
22*77 + 14*483 = 8456
22*84 + 14*472 = 8456
22*91 + 14*461 = 8456
22*98 + 14*450 = 8456
22*105 + 14*439 = 8456
22*112 + 14*428 = 8456
22*119 + 14*417 = 8456
22*126 + 14*406 = 8456
22*133 + 14*395 = 8456
22*140 + 14*384 = 8456
22*147 + 14*373 = 8456
22*154 + 14*362 = 8456
22*161 + 14*351 = 8456
22*168 + 14*340 = 8456
22*175 + 14*329 = 8456
22*182 + 14*318 = 8456
22*189 + 14*307 = 8456
22*196 + 14*296 = 8456
22*203 + 14*285 = 8456
22*210 + 14*274 = 8456
22*217 + 14*263 = 8456
22*224 + 14*252 = 8456
22*231 + 14*241 = 8456
22*238 + 14*230 = 8456
22*245 + 14*219 = 8456
22*252 + 14*208 = 8456
22*259 + 14*197 = 8456
22*266 + 14*186 = 8456
22*273 + 14*175 = 8456
22*280 + 14*164 = 8456
22*287 + 14*153 = 8456
22*294 + 14*142 = 8456
22*301 + 14*131 = 8456
22*308 + 14*120 = 8456
22*315 + 14*109 = 8456
22*322 + 14*98 = 8456
22*329 + 14*87 = 8456
22*336 + 14*76 = 8456
22*343 + 14*65 = 8456
22*350 + 14*54 = 8456
22*357 + 14*43 = 8456
22*364 + 14*32 = 8456
22*371 + 14*21 = 8456
22*378 + 14*10 = 8456

VB.

Dim msg As String
        msg = InputBox("Введите строку")
Dim s As Integer

If msg.IndexOf("K") > -1 Then s += 1       
If msg.IndexOf("E") > -1 Then s += 1       
If msg.IndexOf("Y") > -1 Then s += 1       
If s = 3 Then MsgBox("YES") Else MsgBox("NO")

Pascal.

program chislo;
var x : integer;
    msg : string;
begin
     write('Введите строку: ');
     readln(msg);
     if pos(msg,'K')>0 then X:=X+1;
     if pos(msg,'E')>0 then X:=X+1;
     if pos(msg,'Y')>0 then X:=X+1;
     if (x=3) then writeln('YES') else writeln('NO')
end.