Даны числа а, b, c. составьте алгоритм вычисления половины суммы чисел а и c квадрат произведения чисел b и c.

1. (a+c) / 2

2. b*c ** 2

// C# 7.3

using System;

using System.Collections.Generic;

using System.Collections;

using System.Text;

namespace Rextester

{

   public class Program

   {

       public static void Main(string[] args)

       {

           var crypted = "";

 

           for (int i = 0; i < CaesarCipher.Ru.Length; i++)

               Console.WriteLine(CaesarCipher.Decode(i, crypted));

       }

   }

   

   class CaesarCipher

   {

       public static readonly string Ru = "";

       public static readonly string RuD = "";

       private static readonly int defaultStep = 3;

       public static CaesarEncrypted Encode(int step, string source, Func<string, string> translate)

       {

           string translatedData = translate(source);

           var stringBuilder = new StringBuilder();

           foreach (char c in translatedData.ToLower())

           {

               stringBuilder.Append(RuD[Ru.IndexOf(c) + step]);

           }

           return new CaesarEncrypted(step, stringBuilder.ToString());

       }

       public static CaesarEncrypted Encode(int step, string source)

       {

           return Encode(step, source, x => x);

       }

       public static string Decode(CaesarEncrypted source)

       {

           var step = source.Step;

           return Encode(-step + Ru.Length, source.ToString(), x => x);

       }

       public static string Decode(int step, string source)

       {

           return Encode(-step + Ru.Length, source, x => x);

       }

   }

   class CaesarEncrypted : IEnumerable, IEnumerable<char>

   {

       public int Step { get; set; }

       public string Data { get; set; }

       public CaesarEncrypted(int step, string initData)

       {

           Step = step;

           Data = initData;

       }

       public CaesarEncrypted(string initData) : this(int.MaxValue, initData)

       {}

       public IEnumerator<char> GetEnumerator()

       {

           foreach (char c in Data)

               yield return c;

       }

       IEnumerator IEnumerable.GetEnumerator() => (IEnumerator<char>)GetEnumerator();

       public override string ToString() => Data;

       public static implicit operator string(CaesarEncrypted source) => source.ToString();

   }

}

Uses crt;
var b:array [1..10] of real;
    min,max,x:integer;
    sum,pr,t:real;
begin
     sum:=0; pr:=1;
     for x:=1 to 10 do
     begin
          write('b[',x,']:'); readln(b[x]);
     end;
     min:=1; max:=1;
     for x:=1 to 10 do
     begin
         if b[x]<b[min] then min:=x;
         if b[x]>b[max] then max:=x;
     end;
     t:=b[min];
     b[min]:=b[max];
     b[max]:=t;
     if max>=min then
     for x:=min+1 to max-1 do
         sum:=sum+b[x]
     else
     for x:=max+1 to min-1 do
         sum:=sum+b[x];
     for x:=1 to 10 do
         if b[x]<0 then pr:=pr*b[x];
     for x:=1 to 10 do
         write(b[x],' ');
     writeln; writeln(sum);
     writeln(pr);
end.