test7.pl0

pl0的几个小程序 老师给的 很简单 共享下

var  a;
procedure  p1;
 var  a;
 procedure  p2;
   var  a;
    procedure  p3;
     var  a,m;
     begin  
       a:=4;     write(2*a);  
       read(m);  if m#0 then  call  p1
     end;
  begin  a:=3;
    write(2*a);  call  p3
  end;
 begin  
  a:=2;  write(2*a);  call  p2
 end;
begin
  a:=1;  write(2*a); call  p1
end.