Пожалуйста составьте программу нахождения, очень. Срочно нужно.
На языке Pascal
var
n,x:real;
begin
readln(n);
if n=10 then x:=(n+sqrt(n))/(2*n) else
if n
x:=(5*n)/3;
writeln(x)
end.
