Мне кажеться 2 правильно,а это в каком приложении надо сделать?
var
m, k, d1: <em>single</em>;
i, t, d: <em>byte</em>;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
<span>end.</span>
вот так расшифровывается эта хрень
1)либо х в степени (х/4) или х √(х/4)
2)либо 1/ (а в степени (в/а)) или 1/ (а√в/а))
3) либо а в степени (1/с/в/в) или а √(1/с/в/в)
в таких номерах обычно 2 решения (так нам объясняли)