Даны три числа. Найти среднее арифметическое этих чисел. напишите програмный код

Программа нужна или просто вычислить? Если просто вычислить, то нужно сумму этих чисел разделить на их количество, т.е. 3Program sr;Var a,b,c,rez:real;BeginWriteln('vvedi a,b,c ');Readln(a,b,c);Rez:=(a+b+c)/3;Writeln('rez=', rez);Readln;End.