Составить алгоритм 3х чисел найти среднее арефмичиское ! !

Var a,b,c,sred_A:real;

begin

Writeln('Привет,я-alconafft');

Writeln('Введи первое число');

readln(a);

Writeln('Введи второе число');

readln(b);

Writeln('Введи третье число');

readln(c);

sred_A:=a+b+c/3;

writeln('среднее арифметические равно ',sred_A);

end.