Паскаль линейное программирование программа расчета среднего арифметического квадратных корней трех чисел

Var a, b, c, S: real
begin
read (a, b, c);
S := (sqrt(a) + sqrt(b) + sqrt(c))/3;
writeln (S);
end.