На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, И, К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город К?

Если у нас 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
и так далее...

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

1. Если буквально по тексту задания, то число должно быть должно быть однозначным, тогда число будет соответствовать цифре.

2. Если имелось ввиду, что вводится символ и надо выяснить является ли введенный символ цифрой, то можно применить функцию StrToInt от введенного символа, если в результате получится цифра, то вводили символ - цифру.

Для первого варианта можно попробовать такое решение:

Var
  a :integer;
Begin
  writeln('Введите цифру ');
  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 ('девять')
  else writeln ('Это число не цифра');
  end;
end.