Написать программу, которая вводит с клавиатуры 5 вещественных чисел и вычисляет их среднее арифметическое. на паскале (через for to do)

Текст программы + результат тестирования
var a, b, c: real;
i : integer;
begin
b:=0;
for i:=1 to 5 do
begin
write('Введите число: ');
read(a);b:=b+a;
end;
c:= b/i;
writeln('Среднее арифметическое значение чисел: ', c);
end.

(Задача похожая на твою,подставь свои цифры))"В классе 28 учеников(-а), из них 12 школьников занимаются в математическом кружке, 6 — в литературном, 6 литераторов увлекаются математикой. Сколько ребят не посещают эти кружки? Используй для решения круги Эйлера."

Объяснение:

Всего 35 учеников. 10 кружки не посещают. Значит, посещают кружки 35-10=25 учеников.

25 учеников посещают кружки. 20 учеников занимаются в математическом кружке. Значит, только литературный кружок посещают 25-20=5 человек. В литературном кружке 11 человек. Лишь 5 из них посещают только литературный кружок.

Значит, 11-5 = 6 человек-литераторов посещают ещё и математический кружок.

Задача 1:

using System;

namespace ConsoleApp1

{

   class Program

   {

       static double Method(double x, double y)

       {

           return 5 * x * x + 3 * y * y;

       }

       static void Main(string[] args)

       {

           int a, b, c, d;

           Console.WriteLine("Введите a:");

           a = Convert.ToInt32(Console.ReadLine());

           Console.WriteLine("Введите b:");

           b = Convert.ToInt32(Console.ReadLine());

           Console.WriteLine("Введите c:");

           c = Convert.ToInt32(Console.ReadLine());

           Console.WriteLine("Введите d:");

           d = Convert.ToInt32(Console.ReadLine());

           if (Method(a, b) < Method(c, d))

               Console.WriteLine("Значение 5x^2+3y^2 минимально для чисел {0} и {1}",a,b);

           else

               Console.WriteLine("Значение 5x^2+3y^2 минимально для чисел {0} и {1}", c, d);

       }

   }

}

Задача 2:

using System;

namespace ConsoleApp1

{

   class Program

   {

       static void Swap(ref int n, ref int m)

       {

           int tmp = n;

           n = m;

           m = tmp;

       }

       static void Main(string[] args)

       {

           int[] A = new int[10];

           Random r = new Random();

           Console.WriteLine("Исходный массив: ");

           for (int i = 0; i < 10; i++)

           {

               A[i] = r.Next(100);

               Console.Write(A[i]+" ");

           }

           for (int i = 0; i < 9; i++)

               for (int j = i + 1; j < 10; j++)

                   if (A[i] < A[j]) Swap(ref A[i],ref A[j]);

           Console.WriteLine("\nОтсортированный по убыванию массив: ");

           for (int i = 0; i < 10; i++)

               Console.Write(A[i] + " ");

       }

   }

}