ac.txt

这是一个用c语言编写的编译大作业

const a=10; 
var b,c; 
procedure p;   
VAR d;      
procedure q;   
var x;       
begin       
read(x);
d:=x;
while x<0 
do call p;  
end;     
begin     
write(d);   
call q;   
end;  
begin 
call P;   
end.