Вводится 3 числа вычислить среднее апифметическое этих чисел составить формализацию, алгоритм программы и программу

Program srednee;
Var a,b,c:Integer;
Begin 
  Write('Введите 3 числа');
  read(a,b,c);
  WriteLn('Их среднее арифметическое  ',a,' ',b,' ',c,' = ',a+b+c/3:2:2);
  ReadLn;
End.

Алгоритм:
1. Ввести 3 числа
2. Найти сумму 3 чисел
3. Поделить/Разделить на количество чисел т.е. на 3
4. Результат