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.