program programma;
uses crt;
var
a: array [1..10000] of Real;
max: real;  i, n: integer;
begin
clrscr;
write('n = '); readln(n);

writeln;

for i := 1 to n do
begin
write('a [',i,'] = ');
readln(a[i]);
end;
max := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('max = ', max);
end.