Ответы и объяснения

2013-10-24T14:46:11+04:00
Var x: real;
begin
     readln(x);
     writeln(2 * x * sqrt(x + sqrt(x)));
end.

2)
var a, b, c: real;
begin
     readln(a, b, c);
     writeln('>', (a + b + c) / 3);
end.
Среднее арифметическое)