Пожалуйста составьте программу нахождения, очень. Срочно нужно.

На языке 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.