Программа

Program Pilshikov_5_27 (input,output);
{ Дано 100 вещественных чисел.
  Образуют ли они
  возрастающую прогрессию }
Var a,aPred:real;    { Очередное и предыдущее вещественные числа }
    i:integer;       { Счетчик }
BEGIN
  i:=1;                                   { Определение счетчика }
  Write('Введите ',i,'-е число ');        { Приглашение ввести число }
  Readln(a);                              { Ввод числа }
  repeat                     { Цикл ввода и проверки чисел }
    i:=i+1;                          { Подсчет введенных чисел }
    aPred:=a;                        { Сохранение предыдущего числа }
    Write('Введите ',i,'-е число '); { Приглашение ввести очередное число }
    Readln(a);                       { Ввод очередного числа }
  until (i>=100)or(aPred>=a); { Выход из цикла при достижении конца
                                последовательности или
                                при обнаружении невозростающего шага }
  if a>aPred     { Вывод результатов }
    then Writeln('Последовательность возрастающая ')
    else Writeln('Последовательность невозрастающая ')
END.