Найдите значение выражения
1) sin(130)
2) =26+2*корень(18)
,ответы уже не нужны

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;

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

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