BAi2.PAS

Var
    N, i, maxScore : Longint;
    A : Array[1..10000] Of Longint;

Begin
    Assign(input, 'THI_HK2.DAT'); Reset(input);

    Readln(input, N);
    For i := 1 to N do
    Begin
        Read(input, A[i]);
        If A[i] > maxScore then
            maxScore := A[i];
    End;

    Write('Diem cao nhat trong lop: ', maxScore);

    Close(input);

End.