test5.pl0

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

var a;
procedure p;
 var a;
 begin
  read(a); 
  if a#0 then call p;
  write(a)
 end;
begin
 read(a); write(a); call p; write(a)
end.