{* Задача 416 *}

Unit ZADACH416;
Interface
Implementation
Begin
 writeln('Имеется массив А из N произвольных чисел (A(n)), среди которых есть положительные, отрицательные и равные нулю. Напечатать только те числа из массива которые больше предыдущего числа.');
End.

Program zadach416;

Uses zadach416.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Const {* Постоянные значения *}
  MAX = 100;
Var {* Объявление переменных *}
  mas : Array[1..MAX] Of integer; {описываем массив}
  n   : byte;
  i   : byte;
  k   : integer;
  p   : integer;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Write('N := '); {сколько чисел в масиве}
  Readln(n);
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    Write('vvedite ', i, ' element massiva:>');
    Readln(mas[i]); {вводим элементы массива}
  End;
  Begin
    k := 0;
    For i := 1  To  n Do {* Цикл для i => [1 .. n] *}
    Begin
      If mas[i] > mas[(i - 1)] Then
        writeln (mas[i]); {проверяем условие}
    End;
    readln; {* Ждем нажатия Enter *}
  End;
  
End.