Uses crt;
Var a:array[1..10000] of longint;
n, i, max: integer;
Begin
Clrscr;
Writeln('Nhap so lg ptu, n = '); readln(n);
For i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
Max:=a[1];
For i:=1 to n do if a[i]>max then max:=a[i];
Writeln('So lon nhat trong day la: ',max);
Readln
end.