PROGRAM Read1(Input, Output);
    LABEL
        1;
    VAR
        A, B, C: Char;
BEGIN
1:
    Read(Input, A);
    Read(Input, B);
    Read(Input, C);

    WriteLn(Output, 'A = <', A, '>');
    WriteLn(Output, 'B = <', B, '>');
    WriteLn(Output, 'C = <', C, '>');

    IF Eoln(Input) THEN BEGIN
        WriteLn(Output, 'end-of-line detected');
        WriteLn(Output, 'Input^ = <', Input^, '>')
    END;

    IF Eof(Input) THEN BEGIN
        WriteLn(Output, 'end-of-file detected');
        WriteLn(Output, 'Input^ = <', input^, '>')
    END ELSE
        Goto 1
END.