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

var a,b,c,sred_A:real;beginWriteln('Привет,я-alconafft');Writeln('Введи первое число');readln(a);Writeln('Введи второе число');readln(b);Writeln('Введи третье число');readln(c);sred_A:=a+b+c/3;writeln('среднее арифметические равно ',sred_A);end.