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

программа

Program srar;

Блин. Сейчас напишу

просто код нужен var и дальше

Отредактировала ответ

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