Объяснение:
var
x, s:real;
i:integer;
begin
readln(x);
s:=0;
for i:=3 to 18 do
s:=s + (sqrt(27)/(i*x));
writeln(s);
readln;
end.
