Найти среднее арифметическое

[grooveone]

Помогите пожалуйста Найти среднее арифметическое трех введенных чисел

[Serge_Bliznykov]

var
  a,b,c, middle : double;
begin
  WriteLn('Введите три числа: ');
  ReadLn(a,b,c);
  middle := (a+b+c)/3;
  WriteLn('среднее равно ', middle:1:5);
end.