Даны числа а, в, с. найти среднее значение заданных чисел м.

Program test;
var a,b,c,m:real;
begin
write('Введите А: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите C: ');
readln(c);
m:=(a+b+c)/3;
writeln('Среднее значение чилел (',a,', ',b,', ',c,'): ',m:2:2);
end.

Program gt;
var a,b,c,m:real;
begin
readln(a,b,c);
m:=(a+b+c)/3;
writeln(m:1:6);
end.