test4.pl0

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

const a=9;
var
b,c;
procedure p;
const
 d=2;
var e;
begin
e:=2*a+d+b; write(e+1); c:=3*e
end;
begin
read(b);
while b#0 do
begin call p; write(c); read(b) end;
if b=0 then write(b)
end.