PROGRAM MinMax(Input, Output);

    { Program 6.1 - Find the largest and smallest number in a given list. }

    CONST
        MaxSize = 6;
    TYPE
        ListSize = 1..MaxSize;
    VAR
        Item: ListSize;
        Min, Max: Integer;
        A: Array[ListSize] OF Integer;

BEGIN
    FOR Item := 1 TO MaxSize DO BEGIN
        Read(Input, A[Item]);
        Write(Output, A[Item]:4)
    END;
    WriteLn(Output);

    Min  := A[1];
    Max  := Min;
    Item := 2;

    FOR Item := 1 TO MaxSize DO
        IF A[Item] > Max THEN
            Max := A[Item]
        ELSE IF A[Item] < Min THEN
            Min := A[Item];

    WriteLn(Output, Max:4, Min:4)
END.