DIGNITY.PAS

 (* ---demand process returns--- *)
PROGRAM DIGNITY;

VAR
Ad : INTEGER;

BEGIN
    READ(Ad);
    C := 0;
    WHILE(C < Ad) DO
    BEGIN
        C := C + 1;
        WRITELN(' TO DOC ...');
    END;
END.
(* _BELL(S)
    1B
    ...
    12BS
*)

PROGRAM ENES;

VAR
A :INTEGER;

BEGIN
    C := 0;
    WHILE(C < A) DO
    BEGIN
        C := C + 1;
        C1 := 0;
        WHILE(C1 < C-1) DO
        BEGIN
            C1 := C1 + 1;
            WRITE('1 ', '+ ');
        END; 

        WRITELN('1 = ', C);
    END;
END.