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

PROGRAM MAIN; 
CONST A=10; 
VAR B,C; 
PROCEDURE P; 
BEGIN END; 
PROCEDURE S; 
BEGIN END; 
BEGIN 
  B:=8; 
  READ(C); 
  WHILE C>0 DO 
    BEGIN 
      WRITE(B); 
      CALL S; 
    END; 
  CALL P; 
END.