{* Задача 369 *}

Unit ZADACH369;
Interface
Implementation
Begin
 writeln('Дана последовательность, выбросить из нее максимальные значения и вывести новую последовательность.');
End.

Program pas13701;
Uses crt; {* Подключаем внешние файлы *}
Type {* Создание новых типов данных *}
  vec = Array[1..40] Of integer;
Var {* В работе нам потребуются переменные: *}
  x                   : vec;
  i                   : 0..40;
  n                   : 0..40;
  f                   : integer;
Function findmax (n : integer);
Var {* В работе нам потребуются переменные: *}
  i   : 0..40;
  max : integer;
Begin
  max := x[1];
  For i := 2 To n Do {* Цикл для i => [2 .. n] *}
    If x[i] > max Then
      max := x[i];
  writeln('max=', max);
End;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('n=');
  readln(n);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    write('x[', i, ']=');
    readln(x[i]);
  End;
  f := findmax(n);
  writeln; {* Вывод пустой строки *}
  readln; {* Ждем нажатия Enter *}
End.