viết chương trình tính căn bậc 2 của 1 số thực trong pascal mà không sử dụng hàm sqrt , sử dụng câu lệnh while....do

Lời giải:

var n, x,i,k: longint ;
begin
Write('So mu N= '); readln(n);
write('X= ');readln(x)
i:=0;k:=1;
while i<=n do
begin
k:=k*x;
i:=i+1;
end;
write(k,' ')
readln
end.