test1.bak

来自「很详细的PL0编译演示程序,学习编译的极品!」· BAK 代码 · 共 25 行

const
  c = 10;
var 
  a,b,d;
procedure p;
var e,f;
begin
  b:=b+1;
  e:=2*b;
  f:=3*e
end;
procedure q;
var x,y;
begin
  x:=2*a;
  y:=x+c
end;
begin
  read(a);
  b:=0;
  while b<a do
   call p;
  write(b)
end.