program.txt

来自「词法.语法编译器 to 汇编语言 附带一个测试程序」· 文本 代码 · 共 16 行

program
integer num,a,b;
begin
  num:=1;
  write num;
  repeat
    num:=num+1;
    a:=num;
        repeat
        a:=a-1;
        b:=num/a*a;
        until b=num;
    if a=1 then write num;end;
  until num=100;
end.