Выполнить полностью в excel. прикрепил к вопросу.

Оператор выбора CASE:
...
readln(a);
...
case a of
        0 : writeln ('ноль');
        1 : writeln ('один');
        2 : writeln ('два');
        3 : writeln ('три');
        4 : writeln ('четыре');
        5 : writeln ('пять');
        6 : writeln ('шесть');
        7 : writeln ('семь');
        8 : writeln ('восемь');
        9 : writeln ('девять');
      end;

Условный оператор IF, ELSE
В простом виде:
if (<условие>) 
  then
    <...>
  else 
    <...>

Если внутри блоков с условиями идут несколько операторов, то используется операторная конструкция совместно с begin ... end
if (<условие>)
  then
    begin 
      <... 1>
      <... 2>
      ...
    end
  else 
    begin
      <... 1>
      <... 2>
      ...
    end;

Если а>mах и b<min то с=(а+b)/2 в другом случае с=0 
if(a > max) and (b < min) then
c:= (a+b)/2;
else
c:= 0;

Public static double CosineBetweenVectors(double[] a, double[] b)
        {
            if (a.Length != b.Length || a.Length == 0) throw new Exception("не верные параметры");

            double ab = 0;
            double a_length = 0;
            double b_length = 0;
            for (var i = 0; i < a.Length; i++)
            {
                ab += a[i] * b[i];
                a_length = a[i] * a[i];
                b_length = b[i] * b[i];
            }

            if (a_length * b_length == 0) throw new Exception("Нулевые вектора");

            return ab / Math.Sqrt(a_length) / Math.Sqrt(b_length);
        }