var b: array[1..250] of integer;
max: integer;
n, i: byte;
Begin
Write('n = '); readln(n);
For i:=1 to n do
Begin
Write('b[', i, '] = '); readln(b[i]);
If i=1 then max:=b[1]
Else if b[i]>max then max:=b[i];
End;
Writeln('so lon nhat: ', max);
Writeln('cac so vua nhap:');
For i:=1 to n do write(b[i], ' ');
Readln
End.