Question

Добрый вечер, пожалуйста напишите паскаль, заранее спасибо

Answer 1

===== PascalABC.NET =====

begin

 var F: real-> real := n -> Sqrt(n) + n;

 F(ReadReal('n =')).Println

end.