test4.pl

实现pl0编译 能够实现简单的编译 满足编译原理的要求

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.