PROGRAM OrdChr1;
    VAR
        C: Char;
BEGIN
    FOR C := 'a' TO 'z' DO
    BEGIN
        WriteLn(Ord(C): 3, ' ', C, ' ', Chr(Ord(C)), ' ', Ord(Chr(Ord(C))) : 3);
    END;
END.
