uses crt;
var i,tong,n:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do inc(tong,i);
   writeln(sqrt(tong):0:10);
readln
end.

Tong: là tổng các số từ 1 đến n.

Hàm sqrt: căn bặc 2

Sqrt(tong) là cản bậc 2 tổng các số từ 1 đến n.

writeln(sqrt(tong):0:10);

:0:10 là mình xuất ra là có 10 số ở phần sau dấu chấm cho bạn có cái nhìn trực quan.

Đây là 1 số text mình đã chạy thử

program ct;

uses crt;

var  n,i:integer; S:real;

begin clrscr;

   write('nhap n:=');readln(n);

      for i:=1 to n do S=sqrt(S+n);

    writeln(S);

readln

end.