fakultae.pas

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

program Fakultaet;
begin
  n:= 7;
  i:= 1;
  Fak:= 1;
  while i < n do begin
    i:= i + 1;
    Fak:= Fak * i
  end;
  write(Fak)
end.