program REK1;
uses crt;
var n,i,j:integer;
s,t,p:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
begin
p:=1;
t:=1;
for j:=1 to i do
p:=sqrt(3*n);// не sgrt а sqrt
t:=sqrt(3+p);
s:=s+t;
end;
write('s=',s:5:5);
readln
end.
program REK1;
uses crt;
var n,i,j:integer;
s,t,p:real;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
begin
p:=1;
t:=1;
for j:=1 to i do
p:=sqrt(3*n);// не sgrt а sqrt
t:=sqrt(3+p);
s:=s+t;
end;
write('s=',s:5:5);
readln
end.