{* Задача 452 *}

Unit ZADACH452;
Interface
Implementation
Begin
 writeln('Дан массив а из n элементов. Вычислить сколько элементов данного массива больше последующего за ним элемента.');
End.

Program zadach452;

Uses zadach452.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 5;
Var {* Объявление переменных *}
  a : Array [1..n] Of integer;
  k : integer;
  i : integer;
Begin
  k := 0;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    readln (a[i]);
  For i := 1 To n - 1 Do {* Цикл для i => [1 .. n] *}
  Begin
    If a[i] > a[i + 1] Then
      k := k + 1;
  End;
  writeln ('k=', k);
End.