На языке Pascal
var
n,x:real;
begin
readln(n);
if n=10 then x:=(n+sqrt(n))/(2*n) else
if n<10 then x:=(3*n)-1 else
x:=(5*n)/3;
writeln(x)
end.
