var
  i, n: integer;
  j, max: real;

begin
  writeln('Введите количество чисел (число N):');
  readln(n);
  writeln('Введите ', n ,' чисел (каждое с новой строки):');
  for i := 1 to n do
  begin
    readln(j);
    if j = 1 then
      max := i
    else
      if j > max then
        max := j;
  end;
  writeln('Максимальное из введенных чисел равно ', trunc(max));
end.