test4.pl

来自「pl0的扩展编译器」· PL 代码 · 共 31 行

const true=1,false=0;
var x,y,m,n,pf,j:integer;
procedure prime(m0:integer);
var i,f:integer;
    procedure mod;
      x:=y*y
    begin 
      f:=true;
      m:=m0;
      for i:=3 to m do
         begin
            x:=m;
            y:=i;
            mod;
            if x=0 then f:=false;
         end;
      if f=true then
         begin 
           pf:=true;
         end;
    end
begin
    pf:=false;
    read(n);  
    for j:=n downto 2 do
      begin
        prime(5);
      end 
end.