Постройте в тетради таблицы истинности для четырех логических выражений: 1. A ↔ B

2. A → B

3. A V ¬B → ¬A

4. A Λ B V ¬A Λ ¬B

Определите, какие из них являются равносильными.
1 и 4

1 и 2

2 и 4

2 и 3

Алгоритм- последовательность действий, приводящая к цели.
Пример:
1.Взять банан.
2.Очистить его от кожуры.
3.Съесть банан.
4.Выкинуть кожуру.
Блок схема- графическое представление определения, анализа или метода решения задачи, в котором используются символы для отображения данных, потока, оборудования и т. д.
Для ввода и вывода данных используют ПАРАЛЛЕЛОГРАММ.
Для начала и конца выполнения алгоритма используется ПРЯМОУГОЛЬНИК С ОКРУГЛЕННЫМИ КРАЯМИ.
Для обработки данных алгоритма используется ПРЯМОУГОЛЬНИК.
Для проверки условия используется РОМБ.
Что такое чертёжник я не знаю.
"Человек разрабатывает алгоритмы" - истинное высказывание.

Procedure TForm1.btnRunClick(Sender: TObject);
var
    s: string;
    sum, x, i, count: integer;

begin
    s := edtVvod.Text;
    lblVyvod.Caption := FloatToStr(0);
    
    sum := 0;
    count := 0;
    
    for i := 1 to length(s) do
    begin
        if i mod 2 = 0 then Continue;
        x := StrToInt(s[i]);
        if x mod 2 = 1 then Continue;
        sum := sum + x;
        count := count + 1;
    end;
    
    if count > 0 then
        lblVyvod.Caption := FloatToStr(sum / count);
end;

убрала кое что ненужное
отформатировала
увы проверить негде, так что на ваш страх и риск.
Логика правильная