program celMaiMare;
var
n, m, i, k: integer;
begin
write('n = ');
readln(n);
k := 0;
for i := 1 to n do
begin
write(i + '.');
readln(m);
if m > 99 then
if m < 1000 then
if m > k then
k := m;
end;
if k <> 0 then
writeln('Cel mai mare numar este ' + k);
end.