Написать програму вычесляющую среднее фрифметическое 3х чисел веденных с клавиатуры использууя цикл for to do

Если у нас 3 числа, то значит среднее арифметическое будет вычисляться так: (число1 + число2 + число3) / 3.
Мы можем сократить число1 + число2 + число3, например суммой всех этих числе сумма / 3.

Поэтому алгоритм должен быть вроде :
 1.создаем переменную для хранения суммы
 2.3 раза читаем число, прибавляем его к общей сумме.
 3.Выводим сумму / 3

Вот и сам код, думаю на Паскале сойдет:
begin
var mid := 0; //Создаем переменную для хранения суммы всех чисел, после чего разделим ее на 3
for var i := 1 to 3 do //Будем 3 раза считывать число с клавиатурыbegin
var num: integer; //Создаем переменную для хранения текущего числа
readln(num); //Считываем его
mid := mid + num; //Присваиваем mid значение mid + num (текущее число)
end;
writeln(mid/3); //Выводим среднее
end.

Примеры:

Ввод: 1,2,3
Вывод: 3
Ведь (1 + 2 + 3) / 3 = 3

Ввод: 5, 10, 20
Вывод: 11.(6)
Ведь (5 + 10 + 20) / 3 = 11.(6)

Ввод: 5, 5, 5
Вывод: 5
и так далее...

|Если не сложно нажми кнопку " " ;)|

#include <stdio.h>

#include <conio.h>

 

int main() {

    int i, j = 1, a, b;

    printf("Vvedite granici intervala:");

    printf("\nVvedite a: ");

    scanf("%d", &a);

    printf("Vvedite b: ");

    scanf("%d", &b);

    for(i = a; i <= b; i++)

    printf("%d\t%d\t%d\t\n",i, i*i, i*i*i);

    printf("\n\n");

    printf("Vivesti kvadrati i kubi sled. posl-ti: 1, 2, 4, 7, 11, 16...\n");

     for(i = 1; i <= 46; i+=j++)

    printf("%d\t%d\t%d\t\n",i, i*i, i*i*i);

getch();

}

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Среднее арифметическое отрицательных чисел: ',
      a.Where(x->x<0).Average);
  Writeln('Сумма чисел, кратных четырем: ',
      a.Where(x->x mod 4=0).Sum);
  Writeln('Произведение чисел на интервале [-10;10]: ',
      a.Where(x->x.Between(-10,10)).Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
n= 90
2 -7 -9 23 49 3 -38 -3 -24 -50 -1 44 -33 -14 -39 42 -29 12 5 -27 35 -46 -23 36 26 18 -30 10 18 25 19 2 28 37 -21 4 40 42 10 23 5 -14 6 -10 35 11 -26 19 45 -36 38 44 29 17 -36 -2 -35 5 47 -19 -17 2 30 1 -18 48 -34 -19 -44 8 -49 -20 -48 32 18 -2 -1 38 -49 -35 -6 1 16 4 37 26 24 -40 23 32
Среднее арифметическое отрицательных чисел: -25.1052631578947
Сумма чисел, кратных четырем: 124
Произведение чисел на интервале [-10;10]: -10450944000000