例题：编写程序，求实数x的n（非负整数）次幂运算的程序。要求使用while语句。

程序代码如下所示：

program cql(input,output);

var c,n:integer;s,x:real;

begin

write('input n,x:');

read(n,x);

c:=0;

s:=1;

while c<n do

begin

s:=s*x;

c:=c+1;

end;

write(x:8:1,'**',n,'=',s:10:2);

end.

 注意：
如果read(n,x);下面的语句是

c:=1;

s:=1;

那么下面的while循环的条件就要修改成

while c<=n do

测试通过！