PROGRAM STRINGFORMAT(OUTPUT);

    VAR M: INTEGER;

BEGIN
    FOR M := 0 TO 50 DO WRITELN("STRINGFORMAT":M);
    WRITELN; WRITELN;
    FOR M := 10 DOWNTO 0 DO WRITELN(TRUE:M,"*",FALSE:M)
END.