www.pudn.com > 453.rar > P9104.PL0

PROGRAM MAIN; 
CONST A=10; 
VAR B,C; 
PROCEDURE P; 
VAR D; 
 PROCEDURE Q; 
 CONST E=5; VAR F; 
  PROCEDURE R; 
  VAR G; 
  BEGIN G:=A+E; F:=G; 
    WRITE(G) 
  END; 
 BEGIN CALL R; WRITE(F); 
   F:=A+E*F; WRITE(F,D) 
 END; 
BEGIN D:=A+B; WRITE(D); CALL Q END; 
PROCEDURE S; 
BEGIN CALL P; B:=-10; WRITE(B) END; 
BEGIN 
  B:=8; 
  READ(C); 
  WHILE C>0 DO 
    BEGIN 
      WRITE(B); CALL S; 
      B:=B+C; WRITE(B); 
      READ(C) 
    END; 
  CALL P 
END.