Даны 3 числа. Найти среднее значение

Question

Даны 3 числа. Найти среднее значение

Answer 1

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