var a:array[1..100]of longint;
n,i,t,max:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=max+1;
write(t);
end.

BÀI 2: ĐO MỰC NƯỚC

    Để theo dõi mực nước lũ, ở trạm Thuỷ văn người ta lấy mực nước biển làm mốc, mực nước thấp hơn mực nước biển thì ghi nhận là số nguyên âm, mức nước cao hơn mực nước biển thì ghi nhận là số nguyên dương. Sau nhiều ngày theo dõi, trạm Thuỷ văn nhận thấy rằng, quy luật của mực nước là: mực nước của một ngày bất kỳ bằng trung bình cộng mực nước của ngày hôm trước và mực nước ngày hôm sau.

Yêu cầu: Dựa vào ghi chép mực nước của hai ngày đầu ở trạm Thuỷ văn, hãy tính mực nước của ngày thứ n.

Dữ liệu vào: 

 Dòng thứ nhất chứa hai số nguyên a, b. Số a là mực nước ngày thứ nhất, số b là mực nước ngày thứ hai (-100 <= a,b <= 100)

Dòng thứ hai chứa số nguyên n (3 <= n <= 109)

​Dữ liệu ra:  gồm một dòng ghi một số nguyên là mực nước của ngày thứ n.