ПОМОГИТЕ ПАСКАЛЬ
При помощи ФУНКЦИИ найти среднее арифметическое трех чисел.

program summa;

function sum(a,b,c : real): real;

var

 s:real;

begin

 s:=(a+b+c)/3;

 sum:=s;

end;

var

 x,y,z : real;

begin

 writeln('Введите числа');

 read(x, y, z);

 writeln('Среднее арифметическое: ',sum(x,y,z));

end.