Напишите полностью программу в Turbo Pascal .Создать программу в Turbo Pascal..
Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше, чем у предыдущего элемента массива

var
    a: array[1..100] of integer;
    i, n, k: integer;

begin
    readln(n);
    readln(a[1]);
    for i := 2 to n do
    begin
        readln(a[i]);
        if (a[i - 1] < a[i]) then k := k + 1;
    end;
    writeln(k);
end.