test9.pl0

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

const m=8;
var a;
procedure p;
var a,m;
begin
 a:=5;
 m:=2;
 write(a*m)
end;
begin
write(m);
a:=1;
call p;
write(a)
end.