potenz.pas

来自「一个编译器的源程序」· PAS 代码 · 共 10 行

program Potenzerrechnen;
begin
  i:=0;
  n:=3;
  Potenz:=1;
  while i<n do begin 
    Potenz:=Potenz*n;
    i:=i+1;
  end;
end.