potenz.pas

一个编译器的源程序

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